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

IdeIntf: Use ShortCompareText to compare Clasnames. CompareText and AnsiCompareText can cause mysterious errors. Issue #28546.

Browse Source 
git-svn-id: trunk@49703 -
This commit is contained in:
juha 2015-08-23 10:05:13 +00:00
parent 16362a308b
commit 7a3e12bf4a
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/ideintf/componentreg.pas
View File

@ -329,13 +329,13 @@ end;
function CompareIDEComponentByClassName(Data1, Data2: Pointer): integer;
var
Comp1: TRegisteredComponent;
Comp2: TRegisteredComponent;
Comp1: TRegisteredComponent absolute Data1;
Comp2: TRegisteredComponent absolute Data2;
begin
Comp1:=TRegisteredComponent(Data1);
Comp2:=TRegisteredComponent(Data2);
Result:=AnsiCompareText(Comp1.ComponentClass.Classname,
Comp2.ComponentClass.Classname);
// Both CompareText and AnsiCompareText had problems here sometimes
// for some reason. See reports #27660 and #28546 for details.
Result:=ShortCompareText(Comp1.ComponentClass.Classname,
Comp2.ComponentClass.Classname);
end;
function CompareClassNameWithRegisteredComponent(Key, Data: Pointer): integer;