Ver Mensaje Individual
  #2  
Antiguo 14-12-2009
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
Hola
Al ser texto si esta vacío dara un error, para eso es mejor decirle que si esta vacio que no haga nada.
No se necesitan declarar variables se puede hacer directo.
Código Delphi [-]
procedure TFacturacion.Memo3Change(Sender: TObject);
begin
    If Memo3.Text = '' then
    begin
    // nada
    end
    else
    Memo4.Text := FloatToStr(StrToFloat(Memo2.Text) * StrToFloat(Memo3.Text));
end;
Saludos
__________________
Siempre Novato
Responder Con Cita