Convertir String a Float/Integer

[movorack] · #1 16-02-2023

¡Hola, mRoman!

El posible inconveniente (que no lo es del todo) es que manejas Delphi 6, en versiones mas recientes se tiene TryStrToFloat, la cual nos permite validar si el texto se puede convertir a un número. O también en versiones mas recientes puedes usar expresiones regulares para validar texto.

Casimiro Notevi · #2 16-02-2023

Así tienes un tryStrToFloat casero

Código Delphi [-]Try
  StrToFloat(....)
Except
End;

mRoman · #3 16-02-2023

Cita:

Empezado por Casimiro Notevi

Así tienes un tryStrToFloat casero

Código Delphi [-]Try
  StrToFloat(....)
Except
End;

Ok...muy bien, lo intentaré.

Gracias Casimiro.

[duilioisola] · #4 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 · #5 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.

mRoman · #6 17-02-2023

Cita:

Empezado por mRoman

Ok...muy bien, lo intentaré.

Gracias Casimiro.

Ok, utilice tu recomendación Casimiro, pero como le hago para que siga con el proceso?. En cuanto encuentra la Excepción se detiene y ya no continua.

Aqui el código con el cual estoy haciendo pruebas:

Código Delphi [-]procedure TfrmPDF.Panel1Click(Sender: TObject);
var
   Importe_Flo : Real;
   Importe_Str : String;
begin
               //COPIAR IMPORTES NUMERICOS VALIDOS AL CAMPO paso_ing_importe
        try
               qryImportesNoNum.Close;
               qryImportesNoNum.ParamByName('CT').AsString:=''+IntToStr(cbxCT.KeyValue)+'%';
               qryImportesNoNum.Open;
               qryImportesNoNum.Last;
               pBar3.Max:=qryImportesNoNum.RecordCount;
               qryImportesNoNum.First;

               While not(qryImportesNoNum.Eof) do
               begin
                     Importe_Str:=StringReplace(qryImportesNoNum.FieldByName('paso_pdf_importe').AsString,',','',[rfReplaceAll]);
                     StrToFloat(Importe_Str);
                     ShowMessage( Importe_Str);

                    { qryActImporte.Close;
                     qryActImporte.SQL.Clear;
                     qryActImporte.SQL.Add('UPDATE paso '+
                                            'SET paso_ing_importe=:importe '+
                                            'WHERE paso_pdf_id=:id');
                     qryActImporte.ParamByName('id').AsInteger:=qryImportesNoNum.FieldByName('PASO_PDF_ID').AsInteger;
                     qryActImporte.ParamByName('importe').AsFloat:=StrToFloat( StringReplace(qryImportesNoNum.FieldByName('paso_pdf_importe').AsString,',','',[rfReplaceAll]) );
                     qryActImporte.ExecSQL;}
                     qryImportesNoNum.Next;
                     pBar3.Position:=pBar3.Position+1;
               end;
        except
            ON Exception DO
            BEGIN
                Memo2.Lines.Add(chr(13)+'------IMPORTE NO NUMERICO-------');
                Memo2.Lines.Add('Registro No.: '+qryImportesNoNum.FieldByName('paso_pdf_id').AsString);
                Memo2.Lines.Add('Texto Importe: '+qryImportesNoNum.FieldByName('PASO_PDF_IMPORTE').AsString);
            END;
        end;
end;

El TRY debo ponerlo dentro del While??

mRoman · #7 17-02-2023

Cita:

Empezado por mRoman

Ok, utilice tu recomendación Casimiro, pero como le hago para que siga con el proceso?. En cuanto encuentra la Excepción se detiene y ya no continua.

Aqui el código con el cual estoy haciendo pruebas:

Código Delphi [-]procedure TfrmPDF.Panel1Click(Sender: TObject);
var
   Importe_Flo : Real;
   Importe_Str : String;
begin
               //COPIAR IMPORTES NUMERICOS VALIDOS AL CAMPO paso_ing_importe
        try
               qryImportesNoNum.Close;
               qryImportesNoNum.ParamByName('CT').AsString:=''+IntToStr(cbxCT.KeyValue)+'%';
               qryImportesNoNum.Open;
               qryImportesNoNum.Last;
               pBar3.Max:=qryImportesNoNum.RecordCount;
               qryImportesNoNum.First;

               While not(qryImportesNoNum.Eof) do
               begin
                     Importe_Str:=StringReplace(qryImportesNoNum.FieldByName('paso_pdf_importe').AsString,',','',[rfReplaceAll]);
                     StrToFloat(Importe_Str);
                     ShowMessage( Importe_Str);

                    { qryActImporte.Close;
                     qryActImporte.SQL.Clear;
                     qryActImporte.SQL.Add('UPDATE paso '+
                                            'SET paso_ing_importe=:importe '+
                                            'WHERE paso_pdf_id=:id');
                     qryActImporte.ParamByName('id').AsInteger:=qryImportesNoNum.FieldByName('PASO_PDF_ID').AsInteger;
                     qryActImporte.ParamByName('importe').AsFloat:=StrToFloat( StringReplace(qryImportesNoNum.FieldByName('paso_pdf_importe').AsString,',','',[rfReplaceAll]) );
                     qryActImporte.ExecSQL;}
                     qryImportesNoNum.Next;
                     pBar3.Position:=pBar3.Position+1;
               end;
        except
            ON Exception DO
            BEGIN
                Memo2.Lines.Add(chr(13)+'------IMPORTE NO NUMERICO-------');
                Memo2.Lines.Add('Registro No.: '+qryImportesNoNum.FieldByName('paso_pdf_id').AsString);
                Memo2.Lines.Add('Texto Importe: '+qryImportesNoNum.FieldByName('PASO_PDF_IMPORTE').AsString);
            END;
        end;
end;

El TRY debo ponerlo dentro del While??

Pues eso, me contesto solo.

Coloque el TRY dentro while...y ejecuta sin problema:

Aqui el código:

Código Delphi [-]procedure TfrmPDF.Panel1Click(Sender: TObject);
var
   Importe_Flo : Real;
   Importe_Str : String;
begin
               //COPIAR IMPORTES NUMERICOS VALIDOS AL CAMPO paso_ing_importe
//        try
               qryImportesNoNum.Close;
               qryImportesNoNum.ParamByName('CT').AsString:=''+IntToStr(cbxCT.KeyValue)+'%';
               qryImportesNoNum.Open;
               qryImportesNoNum.Last;
               pBar3.Max:=qryImportesNoNum.RecordCount;
               qryImportesNoNum.First;

               While not(qryImportesNoNum.Eof) do
               begin
                  try
                     Importe_Str:=StringReplace(qryImportesNoNum.FieldByName('paso_pdf_importe').AsString,',','',[rfReplaceAll]);
                     StrToFloat(Importe_Str);
                     ShowMessage( Importe_Str);

                    { qryActImporte.Close;
                     qryActImporte.SQL.Clear;
                     qryActImporte.SQL.Add('UPDATE paso '+
                                            'SET paso_ing_importe=:importe '+
                                            'WHERE paso_pdf_id=:id');
                     qryActImporte.ParamByName('id').AsInteger:=qryImportesNoNum.FieldByName('PASO_PDF_ID').AsInteger;
                     qryActImporte.ParamByName('importe').AsFloat:=StrToFloat( StringReplace(qryImportesNoNum.FieldByName('paso_pdf_importe').AsString,',','',[rfReplaceAll]) );
                     qryActImporte.ExecSQL;}
                  except
                      ON Exception DO
                      BEGIN
                          Memo2.Lines.Add(chr(13)+'------IMPORTE NO NUMERICO-------');
                          Memo2.Lines.Add('Registro No.: '+qryImportesNoNum.FieldByName('paso_pdf_id').AsString);
                          Memo2.Lines.Add('Texto Importe: '+qryImportesNoNum.FieldByName('PASO_PDF_IMPORTE').AsString);
                      END;
                  end;

                  qryImportesNoNum.Next;
                  pBar3.Position:=pBar3.Position+1;

               end;
end;

mRoman · #8 16-02-2023

Cita:

Empezado por movorack

¡Hola, mRoman!

El posible inconveniente (que no lo es del todo) es que manejas Delphi 6, en versiones mas recientes se tiene TryStrToFloat, la cual nos permite validar si el texto se puede convertir a un número. O también en versiones mas recientes puedes usar expresiones regulares para validar texto.

Si...gracias movorack. Si hay soluciones, en nuevas versiones tanto de Delphi como de Firebird, que me hacen considerar seriamente en ACTUALIZAR en lenguaje y el FB.

Gracias!.

Saludos.

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