paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +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)
protected
FFileName : String;
FFileName : AnsiString;
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;
property FileName : String Read FFilename;
property FileName : AnsiString Read FFilename;
end;
{ TFileStream class }
@ -119,7 +119,7 @@ type
protected
procedure SetSize(NewSize: Longint); override;
public
constructor Create(const AFileName: string; Mode: Word); override;
constructor Create(const AFileName: AnsiString; Mode: Word); override;
destructor Destroy; override;
function Read(var Buffer; Count: Longint): Longint; override;
function Write(const Buffer; Count: Longint): Longint; override;
@ -378,7 +378,7 @@ implementation
{* TCFileStream *}
{****************************************************************************}
constructor TCFileStream.Create(const AFileName: string; Mode: Word);
constructor TCFileStream.Create(const AFileName: AnsiString; Mode: Word);
var
oldfilemode : byte;
begin