Zeilen in einem String zählen

[DeddyH]

Da hab ich auch noch einen ohne Pointer, sollte mit #10, #13 und #13#10 zurechtkommen.

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
    case s[i] of
      #13:
        begin
          Inc(Result);
          PrevCR := true;
        end;
      #10:
        begin
          if not PrevCR then
            Inc(Result);
          PrevCR := false;
        end;
      else
        PrevCR := false;
    end;
end;

[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!

[DeddyH]

Danke, mich hat die doppelte Zuweisung auch gestört