diff options
-rw-r--r-- | packages/paszlib/src/ziputils.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/packages/paszlib/src/ziputils.pas b/packages/paszlib/src/ziputils.pas index b616567190..8e07f46b4d 100644 --- a/packages/paszlib/src/ziputils.pas +++ b/packages/paszlib/src/ziputils.pas @@ -98,11 +98,11 @@ begin fp := nil; try case mode of - fopenread: fp := TFileStream.Create(filename, fmOpenRead); - fopenwrite: fp := TFileStream.Create(filename, fmCreate); + fopenread: fp := TFileStream.Create(strpas(filename), fmOpenRead); + fopenwrite: fp := TFileStream.Create(strpas(filename), fmCreate); fappendwrite: begin - fp := TFileStream.Create(filename, fmOpenReadWrite); + fp := TFileStream.Create(strpas(filename), fmOpenReadWrite); fp.Seek(soFromEnd, 0); end; end; @@ -187,7 +187,7 @@ begin OldFileMode := FileMode; GetMem(fp, SizeOf(file)); - Assign(fp^, filename); + Assign(fp^, strpas(filename)); {$push}{$i-} Case mode of fopenread: |