Class TFile (unit FileIO) |
Inherits from
TObject
constructor Open( aFilename: string );
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 );
Buffer : array[0..BufferSize-1] of Byte;
BufferMax : LongInt;
BufferMin : LongInt;
BufferPos : LongInt;
FileHandle : file;
Filename : string;
constructor Open( aFilename: string );
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 );
Buffer : array[0..BufferSize-1] of Byte;
BufferMax : LongInt;
BufferMin : LongInt;
BufferPos : LongInt;
FileHandle : file;
Filename : string;