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

codetools: TStringMap.GetNodeData

Browse Source 
git-svn-id: trunk@40346 -
This commit is contained in:
mattias 2013-02-18 19:27:47 +00:00
parent decc5791e4
commit d63242e1be
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/codetools/codetoolsstructs.pas
View File

@ -123,6 +123,7 @@ type
procedure Remove(const Name: string); virtual;
property CaseSensitive: boolean read FCaseSensitive;
property Tree: TAVLTree read FTree; // tree of PStringMapItem
function GetNodeData(AVLNode: TAVLTreeNode): PStringMapItem; inline;
function Count: integer;
function FindNode(const s: string): TAVLTreeNode;
function Equals(OtherTree: TStringMap): boolean; reintroduce;
@ -166,6 +167,7 @@ type
function GetString(const Name: string; out Value: string): boolean;
procedure Add(const Name, Value: string); virtual;
property Strings[const s: string]: string read GetStrings write SetStrings; default;
function GetNodeData(AVLNode: TAVLTreeNode): PStringToStringTreeItem; inline;
function AsText: string;
procedure WriteDebugReport; override;
function CalcMemSize: PtrUint; override;
@ -189,7 +191,7 @@ type
property Current: PStringToPointerTreeItem read GetCurrent;
end;
{ TStringToPointerTree }
{ TStringToPointerTree - Tree contains PStringToPointerTreeItem }
TStringToPointerTree = class(TStringMap)
private
@ -204,6 +206,7 @@ type
function GetItem(const Name: string; out Value: Pointer): boolean;
procedure Add(const Name: string; const Value: Pointer); virtual;
property Items[const s: string]: Pointer read GetItems write SetItems; default;
function GetNodeData(AVLNode: TAVLTreeNode): PStringToPointerTreeItem; inline;
procedure Assign(Source: TStringMap); override;
function GetEnumerator: TStringToPointerTreeEnumerator;
property FreeValues: boolean read FFreeValues write FFreeValues;
@ -560,6 +563,12 @@ begin
Items[Name]:=Value;
end;
function TStringToPointerTree.GetNodeData(AVLNode: TAVLTreeNode
): PStringToPointerTreeItem;
begin
Result:=PStringToPointerTreeItem(AVLNode.Data);
end;
procedure TStringToPointerTree.Assign(Source: TStringMap);
var
Node: TAVLTreeNode;
@ -711,6 +720,11 @@ begin
end;
end;
function TStringMap.GetNodeData(AVLNode: TAVLTreeNode): PStringMapItem;
begin
Result:=PStringMapItem(AVLNode.Data);
end;
function TStringMap.Count: integer;
begin
Result:=Tree.Count;
@ -897,6 +911,12 @@ begin
Strings[Name]:=Value;
end;
function TStringToStringTree.GetNodeData(AVLNode: TAVLTreeNode
): PStringToStringTreeItem;
begin
Result:=PStringToStringTreeItem(AVLNode.Data);
end;
function TStringToStringTree.AsText: string;
var
Node: TAVLTreeNode;