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

lazutils: deprecate TStringToStringTree.AddValues

Browse Source 
git-svn-id: trunk@34144 -
This commit is contained in:
mattias 2011-12-13 03:44:23 +00:00
parent 69fffc567a
commit e60e7e00f7
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/avglvltree.pas
View File

@ -262,6 +262,7 @@ type
procedure Delete(const Name: string);
procedure Add(const Name, Value, Delimiter: string);
procedure AddNameValues(List: TStrings);
procedure AddValues(List: TStrings); inline; deprecated;
procedure AddNames(List: TStrings);
function GetFirst(out Name, Value: string): Boolean;
function GetLast(out Name, Value: string): Boolean;
@ -1556,6 +1557,11 @@ begin
Values[List.Names[i]]:=List.ValueFromIndex[i];
end;
procedure TStringToStringTree.AddValues(List: TStrings);
begin
AddNames(List);
end;
procedure TStringToStringTree.AddNames(List: TStrings);
var
i: Integer;

2
ide/findrenameidentifier.pas
View File

@ -381,7 +381,7 @@ begin
CleanUpFileList(PascalFiles);
PascalFilenames:=CreateFilenameToStringTree;
PascalFilenames.AddValues(PascalFiles);
PascalFilenames.AddNames(PascalFiles);
CodeHelpBoss.GetFPDocFilenamesForSources(PascalFilenames,true,FPDocFilenames);
if FPDocFilenames=nil then begin
DebugLn(['GatherFPDocReferences no fpdoc files found']);