Textdateien

[Chris_H]

Hi,
ich benötige die Functions,bzw. Procedures seek, filepos und filesize für Textdateien und nicht für typisierte. Kann mir da einer von euch helfen und den richtigen Code posten?

[edit=Daniel B]BB-Code wieder eingeschaltet; MfG Daniel B.[/edit]

[MrSpock]

Hallo Chris_H,

herzlich willkommen im Delphi-PRAXIS Forum.

Gerade Seek ist darauf angewiesen, dass die Datensätze gleich lang sind. Es ist ja möglich mit Seek an eine Position z.B. 10ter Datensatz zu springen und diesen zu überschreiben. Wenn du eine Textdatei hast, funktioniert das natürlich so nicht, weil jede Zeile unterschiedlich lang sein kann. Auch Filepos, wenn es angeben soll, die wievielte Zeile einer Texdatei gerade gewählt wurde ich schwierig. Aber du kannst diese Funktionen (mit der o.g. Beschränkung, dass Datensätze nicht überschrieben werden können) nachbilden mit Readln in einr Schleife. Es wäre auch möglich z.B. eine eigene Indexdatei anzulegen, die jeweils auf den Anfang einer neuen Zeile zeigt (Byteposition) und sich die Länge des Eintrages merkt. Dann kannst du die Textdatei als untypisierte Datei öffnen und mit BlockRead Datensätze lesen.

[Chris_H]

Danke für deinen Tipp Ich denke, dass ich das Problem sehr bald gelöst habe!