I used this, check it.

// Returns an array with the parts of "str" separated by "separator"
function Split(const str: string; const separator: string): array of string;
var
 i, n: integer;
 strline, strfield: string;
begin
 n:= Occurs(str, separator);
 SetLength(Result, n + 1);
 i := 0;
 strline:= str;
 repeat
   if Pos(separator, strline) > 0 then
   begin
     strfield:= Copy(strline, 1, Pos(separator, strline) - 1);
strline:= Copy(strline, Pos(separator, strline) + 1, Length(strline) - pos(separator,strline));
   end
   else
   begin
     strfield:= strline;
     strline:= '';
   end;
   Result[i]:= strfield;
   Inc(i);
 until strline= '';
 if Result[High(Result)] = '' then SetLength(Result, Length(Result) -1);
end;
andrea

Wolfram Kläger ha scritto:
Here is a Delphi implementation of the common PHP function 'explode'.

http://www.michael-puff.de/Developer/Delphi/Code-Snippets/Explode.html

Your example then becomes to
..
A := Explode('-', 'ab-cd-ef');
writeln(A[1]); // expect 'cd'
..

The inverse is accomplished by using PHP like 'implode', which glues all 
splitted parts back to a single string.

Wolfram



-----Ursprüngliche Nachricht-----
Von: FPC-Pascal users discussions <fpc-pascal@lists.freepascal.org>
Gesendet: 10.07.07 13:04:31
An: FPC-Pascal users discussions <fpc-pascal@lists.freepascal.org>
Betreff: [fpc-pascal] splitting string into array


Hi,

is there any function in the libraries of fpc for splitting a string
into an array naming the separator?

In awk for eample if you do this:

        split("ab-cd-ef", x, "-")
        print x[2]

it would split up the first string using "-" as separator and print

        cd

to the output. That's what I'm searching for.
In pascal. ;)

TIA,
Marc


_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply via email to