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

svn classes: fixed getting properties for files with spaces

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@297 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
2007-12-22 15:29:54 +00:00
parent cdb77ad0f9
commit 84309985e3
1 changed files with 1 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/svn/svnclasses.pas
View File

@ -202,7 +202,6 @@ type
FFiles: TFPHashObjectList;
function GetFile(index: integer): TSvnFileProp;
function GetFileCount: integer;
function ContainsFile(const AFileName: string) : boolean;
public
constructor Create;
destructor Destroy; override;
@ -588,11 +587,6 @@ begin
Result := FFiles.Count;
end;
function TSvnPropInfo.ContainsFile(const AFileName: string): boolean;
begin
Result := true;
end;
constructor TSvnPropInfo.Create;
begin
FFiles := TFPHashObjectList.Create(true);
@ -686,7 +680,7 @@ begin
if FileNames.Count>0 then begin
Files := '';
for i := 0 to FileNames.Count-1 do
Files := Files + ' ' + FileNames[i];
Files := Files + format(' "%s"', [FileNames[i]]);
ExecuteSvnCommand('proplist -v' + Files, Output);
Output.Position := 0;
end;