Ver Mensaje Individual
  #2  
Antiguo 14-01-2015
maxzama maxzama is offline
Miembro
NULL
 
Registrado: jun 2011
Posts: 126
Reputación: 13
maxzama Va por buen camino
Gracias, ya lo resolví. Aquí les dejo el código para eliminar coma. Y eliminar algunos valores, después de la coma.

Código Delphi [-]
var
Texto: String;
Z:Real;

Posi:integer;
begin
        Z:=(Sdt-R);
        Str (Z,texto);
        Str (Z:5:2,texto);
        texto:=texto;

        Posi:=pos('.',Texto);
        Delete(Texto, posi,1);

        Edit20.Text:=(texto);

        SpeedButton9.Enabled:=true;

end;
Responder Con Cita