paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 02:19:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

laz_xmlcfg: using CompareText

Browse Source 
git-svn-id: trunk@24731 -
This commit is contained in:
mattias 2010-04-20 10:32:41 +00:00
parent 3fb7dc3c0e
commit e47cce723c
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/laz_xmlcfg.pas
View File

@ -240,9 +240,9 @@ begin
s := GetValue(APath, s); s := GetValue(APath, s);
if AnsiCompareText(s,'TRUE')=0 then if CompareText(s,'TRUE')=0 then
Result := True Result := True
else if AnsiCompareText(s,'FALSE')=0 then else if CompareText(s,'FALSE')=0 then
Result := False Result := False
else else
Result := ADefault; Result := ADefault;