paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-28 20:49:16 +02: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);
if AnsiCompareText(s,'TRUE')=0 then
if CompareText(s,'TRUE')=0 then
Result := True
else if AnsiCompareText(s,'FALSE')=0 then
else if CompareText(s,'FALSE')=0 then
Result := False
else
Result := ADefault;