paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 14:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport: check variable existence before trying to show it's composition (variables editor form), from Michel Tournay, issue #26281

Browse Source 
git-svn-id: trunk@45370 -
This commit is contained in:
jesus 2014-06-06 06:24:49 +00:00
parent a13f3e80da
commit 8ca217203a
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazreport/source/lr_ev_ed.pas
View File

@ -286,9 +286,14 @@ begin
end;
procedure TfrEvForm.ShowVarValue(Value: String);
var
frValue: TfrValue;
begin
if Value='' then Exit;
with Doc.Values.FindVariable(Value) do
frValue := Doc.Values.FindVariable(Value);
if frValue=nil then
raise EParserError.Create('Undefined symbol: ' + Value);
with frValue do
case Typ of
vtNotAssigned:
SetValTo(CurDataSet + '.' + sNotAssigned);