Gibts eine ReadLn alternative?

[Jasocul]

Hmm. Gefällt mir gut. Schön einfach.
Wie ist denn der Source von der Funktion "TextPos"?
Delphi kennt die nämlich nicht.

[marabu]

Gut dass du fragst, Peter.

Delphi-Quellcode:

function TextPos(var tf: TextFile): cardinal;
var
  f: TTextRec absolute tf;
begin
  if f.Mode = fmClosed then
    raise Exception.Create('TextPos: file not open');
  Result := SetFilePointer(f.Handle, 0, nil, FILE_CURRENT);
  with f do
  if (Mode = fmOutput) then
    Inc(Result, BufPos)
  else if (BufEnd <> 0) then
    Dec(Result, BufEnd - BufPos);
end;

Bin mir nicht sicher, ob jeder TextFile-Fetischist sofort den Wert dieses unscheinbaren Codes erkennt...

marabu

PS: und nicht vergessen den i/o-buffer mit SetTextBuffer() auf zig-kb raufzusetzen - mit 128 Byte standard buffer lernt die wutz das Fliegen nicht.

[Jasocul]

Coool.
Ich hoffe, dass ich das in meine Bibliothek aufnehmen darf. Du wirst natürlich als Ersteller dokumentiert!

[marabu]

Natürlich darfst du, sonst hätte ich mein Schatzkästchen gar nicht aufgemacht.

marabu

[ken_jones]

Hulla, wasn hier los? Dachte der Thread sei abgeschlossen.. Zum Glück schau ich noch mal rein!

@alle: Danke für die vielen Ansätze!

@jasocul: Ich hau mir doch nicht selber auf die Finger!

@marabu: That's it! Nicht nur für mein aktuelles Prob, sondern generell!! Ich hab mich schon x-mal darüber geärgert, dass ich die Position im Textfile nicht bestimmen kann! Sensationell!!! Hätt ich schon vor Jahren brauchen können!
Ich bin so frei und kopier mir das auch gleich mal in meine Sammlung rein