Hi,
ich habe folgendes Problem ich habe eine Textdatei, der erste Teil ist
noch ganz normaler Text den ich via Readln() einlese, doch irgendwann
kommt ein "Binär" Teil den ich per Read() einlesen möchte jedoch
kommen dort einige EOF Zeichen drin vor so das mir Read() nichts mehr
einliest, gibt es eine Möglichkeit die Datei doch noch einzulesen.
Unter Turbo Pascal funktioniert das ganze nämlich, komischerweise.
Folgender Code zeigt wie die einlese routine grob arbeitet.
Delphi-Quellcode:
Var
FHandle : Text;
chr1, chr2, chr3 : Char;
Begin
Assign(FHandle, 'test.txt');
{$-}
Reset(FHandle);
{$I+}
If IoResult = 0 Then Begin
.
.
<erst wird der normale Text bereich per Readln() eingelesen>
.
.
Repeat
Read(FHandle, chr1);
Read(FHandle, chr2);
Read(FHandle, chr3);
Until ((Ord(chr1) = 1) AND (Ord(chr2) = 1) AND (Ord(chr3) = 1));
.
.
.
Close(FHAndle);
End;{if}
Ist jetzt irgendwo dazwischen ein 'EOF' Zeichen dann liest Read nichts mehr ein und die 'Ende-Zeichen' werden nicht mehr gefunden...
mfg
TUX
p.s. Das ganze ist in Delphi Personal 7 realisiert.