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;

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario