> na String ID;PRODUTO;CUSTO a função retornaria:
>
> ID
> PRODUTO
> CUSTO
Use um TStringList.
var
s: TStringList;
begin
s := TStringList.Create;
s.Delimiter := ';';
s.DelimitedText := 'ID;PRODUTO;CUSTO';
for i := 0 to s.Count - 1 do
ShowMessage(s[i]);
end;
Jackson Gomes
Tools&Comps - Controle de Usuários para Desenvolvedores CodeGear
Web Site: http://www.toolsandcomps.com
Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
e-mail: [EMAIL PROTECTED]
Fone: 27 3389 1138 - 8811 0324
----------------------------------------------------------------------------
http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc....
----------------------------------------------------------------------------
Devhost - Webhost para desenvolvedores Delphi
http://www.devhost.com.br
[EMAIL PROTECTED]
