paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 14:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf: Use CompareText.

Browse Source 
git-svn-id: trunk@56154 -
This commit is contained in:
juha 2017-10-22 22:25:29 +00:00
parent aa61ca7ed4
commit a2b0762abd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/propedits.pp
View File

@ -5359,7 +5359,7 @@ var
begin
Result := varempty;
for I := Low(VarTypeStr) to High(VarTypeStr) do
if UpperCase(VarTypeStr[I].Name) = UpperCase(AName) then
if CompareText(VarTypeStr[I].Name, AName) = 0 then
Exit(VarTypeStr[I].VarType);
end;