paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use AnsiString for file names to overcome length limitations

Browse Source 
git-svn-id: trunk@47264 -
This commit is contained in:
florian 2020-10-31 19:54:41 +00:00
parent 408fc819b3
commit 8369f035bf
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/cstreams.pas
View File

@ -104,11 +104,11 @@ type
TCCustomFileStream = class(TCStream) TCCustomFileStream = class(TCStream)
protected protected
FFileName : String; FFileName : AnsiString;
public public
constructor Create(const AFileName: string;{shortstring!} Mode: Word); virtual; abstract; constructor Create(const AFileName: AnsiString; Mode: Word); virtual; abstract;
function EOF: boolean; virtual; abstract; function EOF: boolean; virtual; abstract;
property FileName : String Read FFilename; property FileName : AnsiString Read FFilename;
end; end;
{ TFileStream class } { TFileStream class }
@ -119,7 +119,7 @@ type
protected protected
procedure SetSize(NewSize: Longint); override; procedure SetSize(NewSize: Longint); override;
public public
constructor Create(const AFileName: string; Mode: Word); override; constructor Create(const AFileName: AnsiString; Mode: Word); override;
destructor Destroy; override; destructor Destroy; override;
function Read(var Buffer; Count: Longint): Longint; override; function Read(var Buffer; Count: Longint): Longint; override;
function Write(const Buffer; Count: Longint): Longint; override; function Write(const Buffer; Count: Longint): Longint; override;
@ -378,7 +378,7 @@ implementation
{* TCFileStream *} {* TCFileStream *}
{****************************************************************************} {****************************************************************************}
constructor TCFileStream.Create(const AFileName: string; Mode: Word); constructor TCFileStream.Create(const AFileName: AnsiString; Mode: Word);
var var
oldfilemode : byte; oldfilemode : byte;
begin begin