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

lazutils: fixed TStringToStringTree.FindNode

Browse Source 
git-svn-id: trunk@34245 -
This commit is contained in:
mattias 2011-12-17 14:02:35 +00:00
parent 03e8ad5bc8
commit ce22bc9ad1
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/lazutils/avglvltree.pas
View File

@ -1839,7 +1839,7 @@ end;
function TStringToStringTree.FindNode(const Name: string): TAvgLvlTreeNode; function TStringToStringTree.FindNode(const Name: string): TAvgLvlTreeNode;
begin begin
Result:=FItems.FindKey(@Name,FCompareNameWithItem); Result:=FItems.FindKey(Pointer(Name),FCompareNameWithItem);
end; end;
function TStringToStringTree.GetNode(Node: TAvgLvlTreeNode; function TStringToStringTree.GetNode(Node: TAvgLvlTreeNode;