Hi, sorry to bring this back, but I am facing a same issue.
When I use GetValue and debug on I receive the same message for every field I process (I have 6 of them).
When I switch to Release everything works okay and no error message are shown.
Exception was here LR_CLASS 9625
CurValue := 0;
GetVariableValue(ParName, CurValue);
ParValue := FormatValue(CurValue, AFormat, AFormatStr);
{
if TVarData(CurValue).VType=varString then
ValStr := CopyVarString(CurValue)
else
ValStr := CurValue;
ParValue := FormatValueStr(ValStr, Format, FormatStr);
}
{$IFDEF DebugLR}
DebugLn('TfrReport.InternalOnGetValue(%s) Value=%s',[ParName,ParValue]);
{$ENDIF}
And I use this code to set some varible:
if (ParName = 'Usluga1') and (not dmMain.UslugeMainQ.EOF) then
begin
ParValue := dmMain.UslugeMainQ.Fields[0].AsString; /// HERE, looks like an assignment is wrong
dmMain.UslugeMainQ.Next;
Exit;
end;