Jeito mais fácil ainda (não esqueça de declarar a unidade StrUtils em uses):
var
Strings : TStringList;
i : integer;
begin
Strings := TStringList.Create;
try
ExtractStrings(['\'],[' '],Pchar(sua_string),Strings);
//manipula a StringList aqui
finally
Strings.Free;
end;
end;
O procedimento ExtractStrings recebe como parâmetros os seguintes valores:
1º - Caractere separador ('\')
2º - Caractere de espaço em branco (' ')
3º - Sua string (usando PChar(sua_string))
4º - Uma StringList que receberá as strings separadas.
Espero ter ajudado.
Abraço.
--------------------------------------------------------------------------------
Atenciosamente:
Eduardo Cláudio Nicácio
Analista Programador JR.
Fábrica 02 - CTIS
Tel.: (11) 3150-6834
[EMAIL PROTECTED]
----- Original Message -----
From: Eduardo
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, January 24, 2007 7:02 PM
Subject: Re: [delphi-br] Desmembrar string
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/
[As partes desta mensagem que não continham texto foram removidas]
