Class TFile (unit FileIO)

Inherits from

TObject

Constructors


constructor Open( aFilename: string );



Functions

procedure BlockRead( var ResultBuffer; ReadSize: Integer; var Transfered: Integer );


destructor Close;


function Eof: Boolean;


function FilePos: LongInt;

das Dateiende ist erreicht, falls keine Daten mehr im Cachebuffer sind und das Ende der Datei erreicht ist

function FileSize: LongInt;


function NextCh: Char;


procedure ReadCh( var ch: Char );


procedure ReadLn( var Line: string );


procedure Seek( Position: LongInt );


function ByteAvailable: Boolean;

Anzahl der gelesenen Zeichen des rekusiven Aufrufs addieren

function ByteInBuffer: LongInt;

sind jetzt noch immer keine Daten vorhanden, so gibt es keine mehr

procedure ReadBuffer;


procedure SkipData( DataByte: Byte );


Properties

Events

Variables

Buffer : array[0..BufferSize-1] of Byte;


BufferMax : LongInt;


BufferMin : LongInt;


BufferPos : LongInt;


FileHandle : file;


Filename : string;



Constructors


constructor Open( aFilename: string );


Functions


procedure BlockRead( var ResultBuffer; ReadSize: Integer; var Transfered: Integer );


destructor Close;


function Eof: Boolean;


function FilePos: LongInt;

das Dateiende ist erreicht, falls keine Daten mehr im Cachebuffer sind und das Ende der Datei erreicht ist


function FileSize: LongInt;


function NextCh: Char;


procedure ReadCh( var ch: Char );


procedure ReadLn( var Line: string );


procedure Seek( Position: LongInt );


function ByteAvailable: Boolean;

Anzahl der gelesenen Zeichen des rekusiven Aufrufs addieren


function ByteInBuffer: LongInt;

sind jetzt noch immer keine Daten vorhanden, so gibt es keine mehr


procedure ReadBuffer;


procedure SkipData( DataByte: Byte );


Properties


Events


Variables


Buffer : array[0..BufferSize-1] of Byte;


BufferMax : LongInt;


BufferMin : LongInt;


BufferPos : LongInt;


FileHandle : file;


Filename : string;