Código
var L: TstringList;
begin
//Cria uma lista de string
L := TStringList.Create;
//Adiciona Strings
L.Add('teste1,teste2,teste3');
//Substitui a vírgula pelo ponto
L.Text := StringReplace(L.text, ',', '.', [rfReplaceAll]);
showmessage(L.Text);
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009