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

LazUtils: Fix comments in AvgLvlTree for TStringToStringTree etc.

Browse Source 
git-svn-id: trunk@64327 -
This commit is contained in:
juha 2021-01-04 15:56:26 +00:00
parent 47719157fe
commit a5df757d33
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/avglvltree.pas
View File

@ -208,7 +208,7 @@ type
property Values[const s: string]: boolean read GetValues write SetValues; default;
end;
{ TOldStringToStringTree - Associative array }
{ TStringToStringTree - Associative array string to string }
TStringToStringItem = record
Name: string;
@ -225,8 +225,6 @@ type
property Current: PStringToStringItem read GetCurrent;
end;
{ TStringToStringTree }
TStringToStringTree = class(TCustomStringMap)
private
function GetValues(const s: string): string;
@ -254,6 +252,8 @@ type
function GetPrev(const Name: string; out PrevName, PrevValue: string): Boolean;
end;
{ TStringToPointerTree }
TStringToPointerTreeItem = record
Name: string;
Value: Pointer;