[Jose Manuel]

Hola, estoy trabajando con Delphi 6 Enterprise y Quickreport professional 3.6.2, y les escribo para ver si alguien sabe porque sale este error. Con Delphi 6 corriendo, al guardar un listado en formato PDF sale un error que el debugger señala con el siguiente mensaje:

“Project Visor.exe raised exception class ERangeError with message ‘Range check error’. Process stopped. Use Step or Run to continue.”

Y a continuación, abre la Unit que tiene el error QRPDFFilt y en el procedimiento:

procedure TQRPDFDocumentFilter.TextOut(X, Y : extended; Font : TFont; BGColor : TColor;
Alignment : TAlignment; Text : string);

Marca la línea 432 como causante del error:

strpcopy( fpdfitem.Fontname,Font.Name );
fpdfitem.fontsize := Font.Size;
fpdfitem.rgbfcolor.blue := getBvalue(font.color);
fpdfitem.rgbfcolor.red := getRvalue(font.color);
fpdfitem.rgbfcolor.green := getGvalue(font.color);
fpdfitem.fbold := fsBold in font.Style;

Lo curioso, es que hasta ayer no me daba este error, y que en otra aplicación que tengo tampoco me da este error, veo el código de ambas aplicaciones y no aprecio diferencias entre el código de una aplicación y la otra pero una me da error y la otra no.

Tal vez alguien pueda indicarme por que se produce un error del tipo ‘Range check error’, o alguna pista para resolver esta situación.

Un saludo
Jose Manuel