[ Esse "tentei de tudo" é suspeito, mas tudo bem! Vou relevar! ;) ]
O Delphi não tem função pra isso, mas vc pode usar a classe TStringList e, com
ela, escrever uma função pra te auxiliar nisso.
function SplitStr(AStr: string; AList: TStrings): integer;
begin
AList.Clear;
AList.Delimiter := ';';
AList.DelimitedText := AStr;
Result := AList.Count;
end;
Exemplo de chamada (crie um novo projeto de aplicação console no Delphi 7 e,
depois, copie, cole, compile e execute o código abaixo):
[EXEMPLO - INÍCIO]
program ExemploSplitStr;
uses Classes, SysUtils;
{$APPTYPE CONSOLE}
function SplitStr(AStr: string; AList: TStrings): integer;
begin
AList.Clear;
AList.Delimiter := ';';
AList.DelimitedText := AStr;
Result := AList.Count;
end;
var
Lista: TStringList;
begin
Lista := TStringList.Create;
try
SpliStr('ID;PRODUTO;CUSTO', Lista);
while Lista.Count> 0 do
begin
WriteLn(Lista[0]);
Lista.Delete(0);
end;
finally
Lista.Free;
end;
WriteLn('Tecle ENTER...');
WriteLn(Eoln);
end.
[EXEMPLO - FIM]
Boa sorte.
Sds.
P.S.: Detalhes sobre as propriedades Delimiter e DelimitedText da classe
TStringList, consulte o help do Delphi!
________________________________
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 29 Oct 2008 18:21:01 +0000
Subject: [delphi-br] funcao no Delphi para retornar conteudo de strings
boa tarde pessoal
Alguém conhece uma função do Delphi que retorne todas as strings depois
do ';', seria o seguinte:
na String ID;PRODUTO;CUSTO a função retornaria:
ID
PRODUTO
CUSTO
Se no Delphi não tiver, será que alguém conhece algo parecido ?
já tentei de tudo e não estou conseguindo.
obrigado
Paulo
_________________________________________________________________
Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos
com até 6,000 fotos!
http://www.amigosdomessenger.com.br
