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

TvPlanIt: Fix compilation after Laz/main commit 74446557f6825c4ddadd9f6321a80147798dbf99. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8836 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-06-15 10:20:49 +00:00
parent 875a3a826d
commit b84bdf27e1
10 changed files with 45 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/source/vpxparsr.pas
View File

@ -892,7 +892,7 @@ end;
function TVpParser.LoadDataSource(sSrcName: string; oErrors: TStringList): Boolean;
var
aFileStream: TVpFileStream;
aFileStream: TFileStream;
begin
begin
{ Must be a local or network file. Eliminate file:// prefix. }
@ -902,7 +902,7 @@ begin
if FileExists(sSrcName) then begin
FCurrentPath := ExtractFilePath(sSrcName);
{the stream and filter are destroyed after the document is parsed}
aFileStream := TVpFileStream.CreateEx(fmOpenRead, sSrcName);
aFileStream := TFileStream.Create(sSrcName, fmOpenRead);
aFileStream.Position := 0;
Result := True;
end else begin