Ver Mensaje Individual
  #1  
Antiguo 21-04-2006
zvf zvf is offline
Miembro
 
Registrado: abr 2006
Posts: 158
Reputación: 21
zvf Va por buen camino
Error en ejecutable

Hola a todos!

Hice un programa en delphi y su ejecutable, al correr el ejecutable en la maquina que hice todo el sistema, en la que tengo delphi instalado, lo corre perfectamente bien; pero al correr el ejecutable en otra computadora, entra a una excepcion que no deberia de entrar en el siguiente codigo:

Código Delphi [-]
procedure TFPrincipal.BGuardarVClick(Sender: TObject);
var sepaga_bien : integer;
    aux_float, cambio : currency;
begin
 EPaga.Text := EditCantidad.Text;
 sepaga_bien :=0;
try
     aux_float := strtofloat(EPaga.Text);
   except
     on E: EConvertError do
       begin
       ShowMessage('El campo se paga debe ser un numero válido');
       sepaga_bien:=1;
       end;
     end;

 cambio := strtofloat (EPaga.Text) - strtofloat(ETotal1.text); ///aqui entra al error
 ECambio.Text := floattostr (cambio);
 dosdecimales (EPaga);
 dosdecimales (ECambio);
end;

el error dice: 70.00 no es un numero flotante valido; 70.00 es el valor de Total1 que es un componente Edit; pero si es un valor flotante valido.

¿Saben cual sea el problema?
En mi maquina lo corre bien ...
Responder Con Cita