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:
1 2 3 4 5 |
procedure TformGArticulo.txtDExit(Sender: TObject); begin if (bd.State in [dsinsert, dsedit]) then bdprecio.AsFloat := StrToFloatDef(txtPC.Text,0) * 100); end; |
Uses SysUtils;