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

LCL, fixed bug that prevent right sorting in hashed list (fix translations and probably other things)

Browse Source 
git-svn-id: trunk@13955 -
This commit is contained in:
jesus 2008-02-02 23:43:36 +00:00
parent 3324817212
commit 2380f77d0d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/stringhashlist.pas
View File

@ -86,8 +86,9 @@ end;
function TStringHashList.Add(const S: String; ItemData: Pointer): Integer;
var
Item: PStringHashItem;
Val, First, Last, I: Integer;
Larger: ByteBool;
First, Last, I: Integer;
Val: Cardinal;
Larger: boolean;
begin
New(Item);
Val:= HashOf(S);