Convertir String a Float/Integer

[duilioisola] · #1 17-02-2023

Estas funciones las uso en mis aplicaciones:

Código Delphi [-]function StrToFloatDec(s: string; SeparadorDecimal: char): double;
begin
  if (DecimalSeparator <> SeparadorDecimal) then
     s := StringReplace(s, SeparadorDecimal, DecimalSeparator, []);
  Result := StrToFloat(s);
end;

Código Delphi [-]function StrToFloatDef(s: string; Default: double): double;
begin
  try
     // Quito el separador de miles
     s := Trim(StringReplace(s, ThousandSeparator, '', [rfReplaceAll]));
     if (s = '') then
        Result := Default
     else
        Result := StrToFloat(s);
  except
     Result := Default;
  end;
end;

mRoman · #2 17-02-2023

Cita:

Empezado por duilioisola

Estas funciones las uso en mis aplicaciones:

Código Delphi [-]function StrToFloatDec(s: string; SeparadorDecimal: char): double;
begin
  if (DecimalSeparator <> SeparadorDecimal) then
     s := StringReplace(s, SeparadorDecimal, DecimalSeparator, []);
  Result := StrToFloat(s);
end;

Código Delphi [-]function StrToFloatDef(s: string; Default: double): double;
begin
  try
     // Quito el separador de miles
     s := Trim(StringReplace(s, ThousandSeparator, '', [rfReplaceAll]));
     if (s = '') then
        Result := Default
     else
        Result := StrToFloat(s);
  except
     Result := Default;
  end;
end;

Gracias Duilio por tu aportación y tiempo. Lo checo también.

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Convertir campos numeric o float en Integer	Leopard2	Conexión con bases de datos	4	01-09-2014 19:51:05
Convertir String a Integer en consulta SQL	Delphitest	SQL	6	25-05-2010 19:36:20
convertir edit de string a float	Kamael	OOP	1	11-08-2007 03:33:23
Convertir un String a Integer	Rafe	Varios	2	12-08-2005 17:43:38
Como Convertir un dato Integer ó Float a String en FireBird????	AGAG4	Firebird e Interbase	8	04-12-2004 02:59:47