![]() |
filstream- kurze Erklärung für 10 Zeilen.
Delphi-Quellcode:
Sorry ich als Anfänger wäre froh wenn jemand mir kurz die 10 Zeilen erklärt, und vielleicht noch ein paar weiter Eigenschaften parat hat... Ich versteh das hier nicht so ganz... :coder2:
var
fs: TFileStream; buf: array of byte; begin fs := TFileStream.Create(fileName, fmOpenRead); fs.Position := ThePosition; SetLength(buf, TheLength); fs.Read(buf[0], TheLength); fs.Free; end; [edit=Admin]Code in Delphi-Tags gesetzt. Künftig bitte selber machen, Danke. ;-) Mfg, Daniel[/edit] |
Re: filstream- kurze Erklärung für 10 Zeilen.
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:
Die Funktion öffnet also eine Datei zum Lesen und liest eine bestimmte Anzahl von Bytes ab einer angegebenen Position in ein Array ein.
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; |
Re: filstream- kurze Erklärung für 10 Zeilen.
traumhaft danke...
-thread closed- |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:07 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz