Hola rufo.
Si el formato que estás queriendo utilizar es: [miles]
, [cent_dec_uni]
. [decimales], vas a tener que hacer algo similar al lo que te sugiere Marcos.
Probá de este modo:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
Suma: Extended;
i: integer;
s: string;
Sep: string[2];
begin
Sep[1]:= ThousandSeparator;
Sep[2]:= DecimalSeparator;
DecimalSeparator:= '.';
ThousandSeparator:= ',';
Suma:= 0;
for i:= 0 to Memo1.Lines.Count - 1 do
suma := suma + StrToFloat(StringReplace(Memo1.Lines[i], ',' ,'' ,[rfIgnoreCase]));
Edit1.Text:= FloatToStrF(Suma, ffNumber, 20, 2);
ThousandSeparator:= Sep[1];
DecimalSeparator:= Sep[2];
end;
Saludos.