Eine kleine Änderung:
Delphi-Quellcode:
function CountLines(const s: string): integer;
var
PrevCR: Boolean; //Previous Carriage Return
i: integer;
begin
Result := 0;
PrevCR := false;
for i := 1 to Length(s) do begin
case s[i] of
#13: Inc(Result);
#10: if not PrevCR then
Inc(Result);
end;
PrevCR := s[i]=#13;
end;
end;
Gruß
K-H
Das mit dem CarriageReturn und Linefeed sollte man ganz wörtlich nehmen.
mit #13 #10 #10 #10 kann man auf der Konsole, und bei den meisten Druckern 2 Leerzeilen erzeugen.
Wenn das Gerät sich auf die Interpretation der
ASCII-Zeichen einläßt!