Zeilen in einem String zählen

[p80286]

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!