Ich sehe hier eine Ungereimtheit:
In CountLines:
Delphi-Quellcode:
while P^ <> #0 do begin
if P^ = #13 then begin
Inc(Result); //wenn true, dann INC(Zeilenzahl)
if (P + 1)^ = #10 then
Inc(P); //wenn true, dann INC(StrPos)
end else if P^ = #10 then
Inc(Result); //wenn true, dann INC(Zeilenzahl)
Inc(P); //und hier dann ei 2. Mal INC(StrPos), wenn
//if Zweig durchlaufen
end;
Oder hab ich hier einen Denkfehler?