Ver Mensaje Individual
  #9  
Antiguo 18-03-2004
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Reputación: 27
__cadetill Va por buen camino
Acabo de probarlo y me ha funcionado sin problemas

Código:
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := FormatFloat('#,##0.00', 12.2352);
  stringgrid1.Cells[4,2]:= s;
  stringgrid1.Cells[4,3]:= FormatFloat('#,##0.00', Trunc(12.2352 * 100) / 100);
end;
Eso sí, hay que tener en cuenta que FormatFloat redondea, por lo que si queremos los dos últimos decimales tal cual, hay que hacer la operación de Trunc(valor * 100) / 100

Espero te sirva
Responder Con Cita