Hallo,
bitte formatiere Deinen Quellcode (markieren und Button "Delphi-Code"). Und wenn Du den Source dann noch einrückst, kann man es auch besser lesen.
Delphi-Quellcode:
var // Variablendeklaration
fs: TFileStream; // fs hat den Type TFileStream
buf: array of byte; // buf hat den Typ "Dynamisches Array", die Werte dürfen vom Typ Byte sein
begin
fs := TFileStream.Create(fileName, fmOpenRead); // Erzeugen eines Filestream-Objekts mit Dateinamenangabe und nur zum Lesen
fs.Position := ThePosition; // An die Position "ThePosition" im Filestream positionieren
SetLength(buf, TheLength); // Anzahl der Elemente des Dynamischen Byte-Array auf Wert "TheLength" setzen
fs.Read(buf[0], TheLength); // An der Adresse des ersten Byte des Byte-Array Daten aus dem Filestream mit Länge "TheLength" einlesen
fs.Free; // Filestream-Objekt wieder freigeben (Löschen)
end;
Die Funktion öffnet also eine Datei zum Lesen und liest eine bestimmte Anzahl von Bytes ab einer angegebenen Position in ein Array ein.