paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 15:10:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: formatting

Browse Source 
git-svn-id: trunk@40517 -
This commit is contained in:
juha 2013-03-09 14:41:44 +00:00
parent a9239ca17d
commit ac9594df43
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/lazutils/avglvltree.pas
View File

@ -504,8 +504,7 @@ begin
Result:=nil
end;
procedure TStringToPointerTree.SetValues(const s: string; const AValue: Pointer
);
procedure TStringToPointerTree.SetValues(const s: string; const AValue: Pointer);
var
Node: TAvgLvlTreeNode;
NewItem: PStringToPointerItem;
@ -550,8 +549,7 @@ begin
Result:=PStringMapItem(NewItem);
end;
function TStringToPointerTree.GetData(const Name: string; out Value: Pointer
): boolean;
function TStringToPointerTree.GetData(const Name: string; out Value: Pointer): boolean;
var
Node: TAvgLvlTreeNode;
begin
@ -589,8 +587,7 @@ begin
Result:=''
end;
procedure TStringToStringTree.SetValues(const s: string;
const AValue: string);
procedure TStringToStringTree.SetValues(const s: string; const AValue: string);
var
Node: TAvgLvlTreeNode;
Item: PStringToStringItem;
@ -652,8 +649,7 @@ begin
end;
end;
function TStringToStringTree.GetString(const Name: string; out Value: string
): boolean;
function TStringToStringTree.GetString(const Name: string; out Value: string): boolean;
var
Node: TAvgLvlTreeNode;
begin