paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 12:30:36 +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; OldResult, NewResult: String;
begin begin
DebugLn(['Test Expression="',expr,'"']); DebugLn(['Test Expression="',expr,'"']);
OldResult:=e.Eval(Expr); OldResult:=e.EvalOld(Expr);
NewResult:=e.Eval2(Expr); NewResult:=e.Eval(Expr);
DebugLn(['Test eval2 OldResult="',OldResult,'" NewResult="',NewResult,'"']); DebugLn(['Test eval2 OldResult="',OldResult,'" NewResult="',NewResult,'"']);
if NewResult<>ExpectedResult then if NewResult<>ExpectedResult then
DebugLn(['FATAL: Expression="',expr,'" ExpectedResult="',ExpectedResult,'" <> NewResult="',NewResult,'"']); DebugLn(['FATAL: Expression="',expr,'" ExpectedResult="',ExpectedResult,'" <> NewResult="',NewResult,'"']);