| | Submitted on: 1/21/2001 7:32:30 PM
By: Nick Siderakis
Level: Intermediate User Rating:
By 8 Users Compatibility:Delphi 5, Delphi 4, Pre Delphi 4
Users have accessed this article 9391 times. | (About the author) |
| | Hey this function just emulates the Visual Basic function that we know and love “<b>split</b>”!!! You use it the same way you would have in vb.<br><i>
avar := split('string to break up',' ',2);</i><br>
That will return avar as “to” that’s it, have fun and please vote!!
| |
|
Terms of Agreement:
By using this article, you agree to the following terms...
1) You may use
this article in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this article (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this article from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the article or article's description. | function split(input:string;schar:char;s:integer):string;
var
i,n:integer;
schop: string;
begin
n := 1;
for i := 1 to length(input) do
begin
if (input[i] = schar) then
begin
inc(n);
if n = s then
split := schop
else
schop := '';
end
else
schop := schop + input[i];
end;
end; | |
|
Report Bad Submission |
|
|
Your Vote! |
See Voting Log |
|
Other User Comments |
2/6/2001 1:03:04 PM:Antonius Eko S R Thank's for u's sharing
So I could
learn more deep about
Delphi
Programming
Thanks
|
12/5/2001 7:55:14 PM:Jason Lopez How do i...More like where do i put
this fuctions at. I am new to delphi.
So can anyone help.
|
3/10/2002 11:54:10 AM:Da Real Slim Techie Superb. You can't get enough string
manipulation functions. I always need
them for something or other, especially
finding one string within another or
finding a value. In this case I am
using the function to determine the
file type in a list of files.
|
10/19/2002 4:34:27 PM: I have made some changes to the code
and it works perfectly now
changes
marked with *
function
TFRMCLAIMIMAGE.split(input:string;schar:
char;s:integer):string;
var
i,n:integer;
schop: string;
begin
n := 0;
* for i := 1 to
length(input) + 1
* added an
acrement of 1 to cater for last
character
do
begin
*
if (input[i] = schar)or
(i=length(input)+1) then
* added some
code to cater for the last field
begin
inc(n);
if (n = s) then
split := schop
else
schop := '';
end
else
schop := schop + input[i];
end;
end;
Mail me if
you need more clarification
|
7/23/2003 9:19:46 AM: This is just what i'm looking
for!
Thnx!!
|
|
Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this article has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular article, please click here. |
|