paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 20:56:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

avglvltree: changed associative arrays Count to SizeInt

Browse Source 
git-svn-id: trunk@36129 -
This commit is contained in:
mattias 2012-03-17 18:00:17 +00:00
parent 0a38a4d2ea
commit 9f1c3de44f
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/lazutils/avglvltree.pas
View File

@ -65,7 +65,7 @@ type
function MoveNext: Boolean;
property Current: TAvgLvlTreeNode read FCurrent;
property LowToHigh: boolean read FLowToHigh;
end;
end;
{ TAvgLvlTree }
@ -152,7 +152,7 @@ type
TPointerToPointerTree = class
private
FItems: TAvgLvlTree;
function GetCount: Integer;
function GetCount: SizeInt;
function GetValues(const Key: Pointer): Pointer;
procedure SetValues(const Key: Pointer; const AValue: Pointer);
function FindNode(const Key: Pointer): TAvgLvlTreeNode;
@ -167,7 +167,7 @@ type
function GetLast(out Key, Value: Pointer): Boolean;
function GetNext(const Key: Pointer; out NextKey, NextValue: Pointer): Boolean;
function GetPrev(const Key: Pointer; out PrevKey, PrevValue: Pointer): Boolean;
property Count: Integer read GetCount;
property Count: SizeInt read GetCount;
property Values[const Key: Pointer]: Pointer read GetValues write SetValues; default;
property Tree: TAvgLvlTree read FItems;
end;
@ -221,7 +221,7 @@ type
property CaseSensitive: boolean read FCaseSensitive;
property Tree: TAvgLvlTree read FTree; // tree of PStringMapItem
function FindNode(const s: string): TAvgLvlTreeNode;
function Count: integer; inline;
function Count: SizeInt; inline;
function Equals(OtherTree: TCustomStringMap): boolean; reintroduce;
procedure Assign(Source: TCustomStringMap); virtual;
property CompareItemsFunc: TListSortCompare read GetCompareItemsFunc;
@ -240,7 +240,7 @@ type
property Current: string read GetCurrent;
end;
{ TStringMap }
{ TStringMap - associative array string to boolean }
TStringMap = class(TCustomStringMap)
public
@ -329,7 +329,7 @@ type
property CompareNameWithItem: TListSortCompare read FCompareNameWithItem;
end;
{ TStringToPointerTree - Associative array }
{ TStringToPointerTree - Associative array from string to pointer }
TStringToPointerItem = record
Name: string;
@ -1977,7 +1977,7 @@ end;
{ TPointerToPointerTree }
function TPointerToPointerTree.GetCount: Integer;
function TPointerToPointerTree.GetCount: SizeInt;
begin
Result:=FItems.Count;
end;
@ -2218,7 +2218,7 @@ begin
end;
end;
function TCustomStringMap.Count: integer;
function TCustomStringMap.Count: SizeInt;
begin
Result:=Tree.Count;
end;