paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 13:58:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: configscript: comparing string and number

Browse Source 
git-svn-id: trunk@28482 -
This commit is contained in:
mattias 2010-11-25 16:20:01 +00:00
parent b462af823c
commit 337ec99248
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/examples/runcfgscript.lpi
View File

@ -13,6 +13,9 @@
<MainUnit Value="0"/>
<Title Value="runcfgscript"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>

3
components/codetools/examples/runcfgscript.lpr
View File

@ -55,7 +55,8 @@ begin
//Src:='a:=2; b:=3; if a+b=5 then Result:=13';
//Src:='if (TargetOS=''win32'') then Result:=3';
//Src:='a:=2; b:=3; b+=a;';
Src:='a:=2; b:=''3''; b+=a;';
//Src:='a:=2; b:=''3''; b+=a;';
Src:='a:=''1''; if a=1 then b:=3;';
end;
Engine:=TCTConfigScriptEngine.Create;