Gracias por la ayuda Casimiro. Pero pasa lo siguiente:
Ya e colocado o insertado esto Dos código, el cual se acerca a lo que quiero(O eso muestra sus ejemplos).
Código Delphi
[-]ShowMessage('0.#### : '+FormatFloat('0.####', float)); Resultado: 1234.567
ShowMessage('#,##0 : '+FormatFloat('#,##0', float)); resultado: 1,235
Aun así, no me da el resultado que busco.
Este es mi siguiente código con resultado:
Código Delphi
[-] Memo2.Lines[0];
for I := 0 to Memo2.Lines.Count-1 do
begin
Cad:=Memo2.Lines[i];
Monto:=copy(Cad,56,15);
Monto:=StringReplace(Monto, ',', '',[rfReplaceAll, rfIgnoreCase]);
Monto:= IntToStr(StrToInt(Monto)); Float:=strtoint(Monto);
SHOWMESSAGE(FormatFloat('0.####', float)); end;
Código Delphi
[-]Memo2.Lines[0];
for I := 0 to Memo2.Lines.Count-1 do
begin
Cad:=Memo2.Lines[i];
Monto:=copy(Cad,56,15);
Monto:=StringReplace(Monto, ',', '',[rfReplaceAll, rfIgnoreCase]);
Monto:= IntToStr(StrToInt(Monto)); Float:=strtoint(Monto);
SHOWMESSAGE(FormatFloat('#,#0', float)); end;
No se que me falta o que e colocado mal?.
Espero sus respuesta por favor y Gracias.