Seitenumbruch einer Seite erkennen

[Susanne]

Hallo,

ich habe eine Datei in eine StringListe geladen und suche dort nach bestimmten Zeichenketten, das funktioniert ja nun auch.

Nun muss ich aber noch herausfinden, ob in einer Zeile ein Seitenumbruch vorkommt. Wie mache ich das? Woran erkenne ich einen Seitenumbruch. Ich muss unter bestimmten Bedingungen die Seite löschen und dafür muss ich dann wissen, wo eine Seite anfängt bzw. wo eine Seite aufhört.

Jemand eine Idee? Oder gibt es eine bessere Methode als mit einer Stringliste?

Grüsse

[marabu]

Hallo Susanne,

wenn du die Datei in einer StringList verarbeitest, dann handelt es sich wohl um eine Textdatei. In Textdateien werden normalerweise nur ASCII control characters verwendet. #12 ist das Steuerzeichen für Seitenvorschub (form feed, FF), #13 ist das Zeichen für Wagenrücklauf (carriage return, CR). Finden kannst du Seitenvorschübe mit der Funktion Pos:

Delphi-Quellcode:

var
  s: TStrings;
  i: integer;
begin
  s := TStringList.Create;
  s.LoadFromFile(fileName);
  for i := 0 to Pred(s.Count) do
    if Pos(#12, s[i]) = 1 
      then FormFeedFound(s[i])
      else WhatElse(s[i]);
  s.Free;
end;

Ob du auf dem richtigen Weg bist, kann ich natürlich nur sagen, wenn ich die Daten kenne.

Grüße vom marabu