StrToFloatDef (texto, defecto)
Convierte una cadena de texto a Float (número en coma flotante), si no consigue convertir la cadena de texto devolverá el valor por defecto.
Ejemplo de uso:
procedure TformGArticulo.txtDExit(Sender: TObject);
begin
if (bd.State in [dsinsert, dsedit]) then
bdprecio.AsFloat := StrToFloatDef(txtPC.Text,0) * 100);
end;
Uses SysUtils;
Funciones Delphi |