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
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);
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??