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

svn2revisioninc: fixed detecting if current revisioninc is a valid file.

Browse Source 
git-svn-id: trunk@10185 -
This commit is contained in:
vincents 2006-11-10 12:15:34 +00:00
parent 3febf01ee8
commit ee60b9bdcc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tools/svn2revisioninc.pas
View File

@ -165,8 +165,8 @@ begin
Lines := TStringList.Create;
Lines.LoadFromFile(RevisionIncFileName);
if (Lines.Count=2) and
(Lines[1]=RevisionIncComment) and
(copy(Lines[2], 1, length(ConstStart))=ConstStart) then
(Lines[0]=RevisionIncComment) and
(copy(Lines[1], 1, length(ConstStart))=ConstStart) then
Result:=true;
end;
end;