Ta na mão.
function SeparaTexto(pTexto : String; pSeparador : Char) : TStringList;
var
i : Integer;
s : String;
begin
s := '';
for i := 1 to Length(pTexto) do
begin
if pTexto[i] <> pSeparador then
s := s + pTexto[i]
else
begin
Result.Add(Trim(s));
s := '';
end;
end;
end;
Eduardo
Lucas escreveu:
>
> Preciso desmembrar o caminho de pastas de arquivos, exemplo:
> tenho uma string com "\pasta1\arquivos\dados"
> preciso separar isto em 3 strings:
> pasta1
> arquivos
> dados
>
> lembrando que não da pra usar o copy porque os nomes das pastas podem
> ser de varios tamanhos. Alguém tem uma dica?
> Desde ja agradeço.
>
> Lucas.
>
>
_______________________________________________________
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
