existe essa funcao?

[nolfolk 0]

em PHP estou acostumado a usar a funcao "explode('','')", ela separa uma string de outra, por exemplo:string='Joao:Maria:Zé';(loop)string2[x]=explode(':','string');(fim do loop)nao me lembro se eh exatamente assim, mas axo q eh isso, mas enfim...tem como fazer isso em delphi?

[WiCkEd 0]

tem uma maneira usando Copy e Pos, mas que eu acho mais simples é:

Var

   i,cont: integer;  

   texto,temp: string

   separados: array[1..3] of string;

begin

   cont := 0; //pra saber em qual das strings separadas está

   texto := 'Joao:Maria:Zé';

   temp := '';

   for i := 1 to length(texto) do

       begin

           if (texto <> ':') and (i < length(texto)) then

              temp := temp + texto

           else

              begin

                   inc(cont);

                   separados[cont] := temp;

                   temp := '';

              end;

       end;

end;