Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#10

Re: Gibts eine ReadLn alternative?

  Alt 20. Jul 2005, 14:16
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
  Mit Zitat antworten Zitat