| Class TFile (unit FileIO) |
TObject
| Constructors |
constructor Open( aFilename: string );| Functions |
procedure BlockRead( var ResultBuffer; ReadSize: Integer; var Transfered: Integer );
destructor Close;
function Eof: Boolean;
function FilePos: LongInt;
function FileSize: LongInt;
function NextCh: Char;
procedure ReadCh( var ch: Char );
procedure ReadLn( var Line: string );
procedure Seek( Position: LongInt );
function ByteAvailable: Boolean;
function ByteInBuffer: LongInt;
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;