paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-08 12:59:35 +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(THandleStream)
Private
FFileName : String;
protected
procedure SetSize(NewSize: Longint); override;
public
constructor Create(const FileName: string; Mode: Word);
constructor Create(const AFileName: string; Mode: Word);
destructor Destroy; override;
function Seek(Offset: Longint; Origin: Word): Longint; override;
property FileName : String Read FFilename;
end;
{ TCustomMemoryStream abstract class }
@ -1078,7 +1081,10 @@ function LineStart(Buffer, BufPos: PChar): PChar;
{
$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
Revision 1.16 1999/09/13 08:35:16 fcl

16
fcl/inc/streams.inc
View File

@ -298,18 +298,19 @@ end;
{* TFileStream *}
{****************************************************************************}
constructor TFileStream.Create(const FileName: string; Mode: Word);
constructor TFileStream.Create(const AFileName: string; Mode: Word);
begin
FFileName:=AFileName;
If Mode=fmcreate then
FHandle:=FileCreate(FileName)
FHandle:=FileCreate(AFileName)
else
FHAndle:=FileOpen(FileName,Mode);
FHAndle:=FileOpen(AFileName,Mode);
If FHandle<0 then
If Mode=fmcreate then
raise EFCreateError.createfmt(SFCreateError,[FileName])
raise EFCreateError.createfmt(SFCreateError,[AFileName])
else
raise EFOpenError.Createfmt(SFOpenError,[Filename]);
raise EFOpenError.Createfmt(SFOpenError,[AFilename]);
end;
@ -620,7 +621,10 @@ end;
{
$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 constants