paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 21:39:11 +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 Result:=nil
end; end;
procedure TStringToPointerTree.SetValues(const s: string; const AValue: Pointer procedure TStringToPointerTree.SetValues(const s: string; const AValue: Pointer);
);
var var
Node: TAvgLvlTreeNode; Node: TAvgLvlTreeNode;
NewItem: PStringToPointerItem; NewItem: PStringToPointerItem;
@ -550,8 +549,7 @@ begin
Result:=PStringMapItem(NewItem); Result:=PStringMapItem(NewItem);
end; end;
function TStringToPointerTree.GetData(const Name: string; out Value: Pointer function TStringToPointerTree.GetData(const Name: string; out Value: Pointer): boolean;
): boolean;
var var
Node: TAvgLvlTreeNode; Node: TAvgLvlTreeNode;
begin begin
@ -589,8 +587,7 @@ begin
Result:='' Result:=''
end; end;
procedure TStringToStringTree.SetValues(const s: string; procedure TStringToStringTree.SetValues(const s: string; const AValue: string);
const AValue: string);
var var
Node: TAvgLvlTreeNode; Node: TAvgLvlTreeNode;
Item: PStringToStringItem; Item: PStringToStringItem;
@ -652,8 +649,7 @@ begin
end; end;
end; end;
function TStringToStringTree.GetString(const Name: string; out Value: string function TStringToStringTree.GetString(const Name: string; out Value: string): boolean;
): boolean;
var var
Node: TAvgLvlTreeNode; Node: TAvgLvlTreeNode;
begin begin