Delphi explode() function like PHP explode() at Jason White

type
TArray = array of string;

function explode(cDelimiter, sValue : string; iCount : integer) : TArray;
var
s : string; i,p : integer;
begin

        s := sValue; i := 0;
        while length(s) > 0 do
        begin
                inc(i);
                SetLength(result, i);
                p := pos(cDelimiter,s);

if ( p > 0 ) and ( ( i < iCount ) OR ( iCount = 0) ) then
begin

�
result[i - 1] := copy(s,0,p-1);

                        {updated, thanks Irfan}
                        s := copy(s,p + length(cDelimiter),length(s));
                end else
                begin result[i - 1] := s;
                        s := ”;
                end;
        end;

end;

use like this

explode(’,',’test,test,tets’, 0) ;
or
explode(’|',’test|test|tets’, 2) ;
or

a := explode(’,',’test,test,tets’, 0) ;
for i := 0 to High(a) do
begin
showMessage(a[i]);
end;

Share and Enjoy: These icons link to social bookmarking sites where readers can share and discover new web pages.

11 Responses to “Delphi explode() function like PHP explode()”

Feed for this Entry Trackback Address

1 Simon J Stuart
Jul 30th, 2006 at 4:40 pm

Hi Jason,
Nice function, just a piece of advice, like you do in D-TNT, can you put a call example in when you write a function or procedure? It’s just helpful sometimes….. it’s an idea

Si
2 Irfan
Dec 1st, 2006 at 3:50 pm

Hello,

there is a little problem in your code…

Doesnt work with Length(delimiter )>0…

Here is updated code for lengthy delimiters…

function explode(cDelimiter, sValue : string; iCount : integer) : TArray;
var
s : string; i,p : integer;
begin
s := sValue; i := 0;
while length(s) > 0 do
begin
inc(i);
SetLength(result, i);
p := pos(cDelimiter,s);
if ( p > 0 ) and ( ( i
3 Irfan
Dec 1st, 2006 at 3:52 pm

function explode(cDelimiter, sValue : string; iCount : integer) : TArray;
var s:string; i,p : integer;
begin
s := sValue; i := 0;
while length(s) > 0 do
begin inc(i); SetLength(result, i); p := pos(cDelimiter,s);
if ( p > 0 ) and ( ( i
4 Irfan
Dec 1st, 2006 at 3:53 pm

update after IF statement:

begin
result[i - 1] := copy(s,0,p-1); s := copy(s,p + length(cDelimiter),length(s));
end
5 jason.white
Dec 1st, 2006 at 9:39 pm

Thanks Irfan for your comment, I’ll have a look at your suggestion and possibly update the page.

Kindest Regards

Jason
6 choirul ihwan
Mar 12th, 2008 at 8:50 am

nice functions… it is very usable in a lot of applications… tq
7 jason.white
Mar 12th, 2008 at 10:30 am

thank choirul, glad you like it.
8 vac
Apr 4th, 2008 at 1:03 pm

i was missing this function in pascal/delphi and i didnt feel like writing it.
thank You for this!
9 jason.white
Apr 19th, 2008 at 12:12 am

hi vac, glad it was helpful
10 Jak Spalding
May 1st, 2008 at 1:05 pm

You might like this:

procedure Whatever;
var myArray: TStringList;
begin
myArray := TStringList.Create;
myArray.Delimiter := ‘,’; { or whatever you want }
myArray.DelimitedText := ‘one,two,three’;
end;

and that’s it. It’s a shorter solution but with one major drawback, the delimiter can only be one char.
11 Technology Blog
May 5th, 2008 at 7:29 pm

Works like a charm..

Jason White