pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

added TSvnPropInfo.LoadForFiles

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@114 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
2007-03-04 23:27:28 +00:00
parent e1c9c30365
commit 099366f18b
2 changed files with 75 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
components/svn/svnclasses.pas
View File

@ -153,6 +153,7 @@ type
public
constructor Create;
destructor Destroy; override;
function GetFileList: TStrings;
property Author: string read FAuthor write FAuthor;
property CommonPath: string read GetCommonPath;
property Date: string read FDate write FDate;
@ -203,6 +204,7 @@ type
destructor Destroy; override;
procedure LoadFromStream(s: TStream);
procedure LoadFromFile(FileName: string);
procedure LoadForFiles(FileNames: TStrings);
property FileItem[index: integer]: TSvnFileProp read GetFile; default;
property FileCount: integer read GetFileCount;
end;
@ -458,6 +460,15 @@ begin
end;
end;
function TLogEntry.GetFileList: TStrings;
var
i: integer;
begin
Result := TStringList.Create;
for i:= 0 to PathCount -1 do
Result.Add(Path[i].Path);
end;
function TLogEntry.GetLogPathCount: integer;
begin
Result := FLogPaths.Count;
@ -630,5 +641,24 @@ begin
end;
end;
procedure TSvnPropInfo.LoadForFiles(FileNames: TStrings);
var
Output: TMemoryStream;
Files: string;
i: integer;
begin
Output := TMemoryStream.Create;
try
Files := '';
for i := 0 to FileNames.Count-1 do
Files := Files + ' ' + FileNames[i];
ExecuteSvnCommand('proplist -v' + Files, Output);
Output.Position := 0;
LoadFromStream(Output);
finally
Output.Free;
end;
end;
end.