Text Datei über EOF hinweg lesen

[TUX_der_Pinguin]

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.

[Luckie]

Nimm einen FileStream und lese bis zum Ende der Datei.

[himitsu]

Oder merk dir die Stelle (FilePos), schließe die Datei, öffne sie im Binärmodus (irgendwas anderes ... halt nur nicht als TextFile), springe wirder zu der Position (Seek) und ließ es ein ^^

Das EoF kommt daher, da im TextModus eine #0 als Dateiende angesehen wird.

[Luckie]

#0 ist das Stringende. (Text)Dateiende ist Strg^z. Siehe auch hier: http://blogs.msdn.com/oldnewthing/ar.../16/90448.aspx Interessanter Artikel warum das so ist.

[himitsu]

Komisch, mir war so, als wenn das Stringende #10/#13#10 wäre?

Du könntest dennoch etwas Rechthaben, mit dem ESC, aber mir war so, als wenn dennoch bei #0 aufgehört wird mit lesen?