Hi himitsu,
Vielen Dank, ich bin schwer beeindruckt. Der Code läuft unter meiner Delphi 5 Pro Version.
Ich habe die Version übrigends jetzt auf einem Delphi 6 System auch laufen lassen klappt prima
Respekt...
Eine Sache wundert mich:
Die Postionsangaben in Seek64 / FilePos64 bezogen auf die ReadLN Funktion.
Sowohl Delhi 5 als auch 6: Irgendwie können die Werte binär nicht stimmen, und wenn man den Wert als Zeilanangabe interpretiert passt es auch nicht.
Ich hatte mal vermutet, dass ReadLN den Datenpositionszeiger überhaupt nicht anrührt und nach einem ReadLN mit
Seek64 um vorhergehende Position plus Textlänge + CRLF "händisch" verschoben war aber auch nicht ganz gepasst.
Ist dir die Angabe klar?
z.B.
Delphi-Quellcode:
begin
AssignFile(F, Filename);
Reset(F);
while not Eof(F) do
begin
ReadLN(F,text);
ShowMessage(IntToStr(FilePos64(F)));
end;
CloseFile(F);
end;
Viele Grüße
(die olle) dose