Gibts eine ReadLn alternative?

[marabu]

Hi Peter,

Zitat von marabu:

die Differenz (der Dateipositionen vor und nach dem Lesen einer Zeile) ist die Länge der Zeile

vielleicht habe ich mich nicht klar genug ausgedrückt, deshalb hier ein Beispiel:

Delphi-Quellcode:

...
iEnd := 0;
iLine := 0;
while not Eof(t) do begin
  iStart := iEnd;
  ReadLn(t, line);
  Inc(iLine);
  iEnd := TextPos(t);
  if Length(line) <> (iEnd - 2 - iStart) then
    WriteLn(iLine, ': ', line);
end;
...

marabu