Ei...
A preguiça foi embora...
Encontrei no Sto Google... no site MarcosDelAntonio.net
para quem não tem, olha o código aí em baixo
-----------------
function Explode(str, separador: string): TStringList;
var
p: integer;
begin
Result := TStringList.Create;
p := Pos(separador, str);
while (p > 0) do
begin
Result.Add(Copy(str, 1, p-1));
Delete(str, 1, p + Length(separador) - 1);
p := Pos(separador, str);
end;
if (str <> '') then
Result.Add(str);
end;
----------------
sds
__________________________________
Emanuel Coutinho
Salvador-Ba-Brasil
Coutinho - Yahoo escreveu:
>
> Pessoal
>
> Reconheço que desssa vez não é só a pressa, mas também certa preguiça,
> pois tenho só até amanhã para entregar uma rotina ao cliente, uma vez
> que ele quer rodar umas coisas antes do Carnaval (que aqui em
> Salvador... já começou desde 4a. à noite).
>
> Preciso de uma função que me retorne uma string com as palavras
> separadas em itens de uma stringlist, ou em uma matriz... tipo a função
> explode do PHP...
>
> Alguém tem isso pronto? senão vou meter a mão no código!!
>
> Sds
>
> __________________________________
> Emanuel Coutinho
> Salvador-Ba-Brasil
>
>
