paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-15 17:40:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Added FileNAme property for filestreams

Browse Source
This commit is contained in:
michael 1999-11-30 15:28:38 +00:00
parent 0512ba80fb
commit aa0b67f558
2 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fcl/inc/classesh.inc
View File

@ -497,12 +497,15 @@ type
{ TFileStream class } { TFileStream class }
TFileStream = class(THandleStream) TFileStream = class(THandleStream)
Private
FFileName : String;
protected protected
procedure SetSize(NewSize: Longint); override; procedure SetSize(NewSize: Longint); override;
public public
constructor Create(const FileName: string; Mode: Word); constructor Create(const AFileName: string; Mode: Word);
destructor Destroy; override; destructor Destroy; override;
function Seek(Offset: Longint; Origin: Word): Longint; override; function Seek(Offset: Longint; Origin: Word): Longint; override;
property FileName : String Read FFilename;
end; end;
{ TCustomMemoryStream abstract class } { TCustomMemoryStream abstract class }
@ -1078,7 +1081,10 @@ function LineStart(Buffer, BufPos: PChar): PChar;
{ {
$Log$ $Log$
Revision 1.17 1999-10-20 20:24:21 florian Revision 1.18 1999-11-30 15:28:38 michael
+ Added FileNAme property for filestreams
Revision 1.17 1999/10/20 20:24:21 florian
+ sc* constants added as suggested by Shane Miller + sc* constants added as suggested by Shane Miller
Revision 1.16 1999/09/13 08:35:16 fcl Revision 1.16 1999/09/13 08:35:16 fcl

16
fcl/inc/streams.inc
View File

@ -298,18 +298,19 @@ end;
{* TFileStream *} {* TFileStream *}
{****************************************************************************} {****************************************************************************}
constructor TFileStream.Create(const FileName: string; Mode: Word); constructor TFileStream.Create(const AFileName: string; Mode: Word);
begin begin
FFileName:=AFileName;
If Mode=fmcreate then If Mode=fmcreate then
FHandle:=FileCreate(FileName) FHandle:=FileCreate(AFileName)
else else
FHAndle:=FileOpen(FileName,Mode); FHAndle:=FileOpen(AFileName,Mode);
If FHandle<0 then If FHandle<0 then
If Mode=fmcreate then If Mode=fmcreate then
raise EFCreateError.createfmt(SFCreateError,[FileName]) raise EFCreateError.createfmt(SFCreateError,[AFileName])
else else
raise EFOpenError.Createfmt(SFOpenError,[Filename]); raise EFOpenError.Createfmt(SFOpenError,[AFilename]);
end; end;
@ -620,7 +621,10 @@ end;
{ {
$Log$ $Log$
Revision 1.16 1999-10-03 19:38:06 peter Revision 1.17 1999-11-30 15:28:38 michael
+ Added FileNAme property for filestreams
Revision 1.16 1999/10/03 19:38:06 peter
* fixed readansistring * fixed readansistring
* fixed constants * fixed constants