paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 15:25:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed exmaple

Browse Source 
git-svn-id: trunk@22811 -
This commit is contained in:
mattias 2009-11-26 20:45:07 +00:00
parent 88d5b48c92
commit ca19910ffe
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/examples/testexpreval.pas
View File

@ -38,8 +38,8 @@ var
OldResult, NewResult: String;
begin
DebugLn(['Test Expression="',expr,'"']);
OldResult:=e.Eval(Expr);
NewResult:=e.Eval2(Expr);
OldResult:=e.EvalOld(Expr);
NewResult:=e.Eval(Expr);
DebugLn(['Test eval2 OldResult="',OldResult,'" NewResult="',NewResult,'"']);
if NewResult<>ExpectedResult then
DebugLn(['FATAL: Expression="',expr,'" ExpectedResult="',ExpectedResult,'" <> NewResult="',NewResult,'"']);