Überschrift aus Textdatei finden.

[p80286]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Pos1, Pos2, Pos3: byte;
  s : string; f : textfile;
begin
  s := 'Hallo; Guten Tag; Guten Morgen; Guten Abend;';
  Pos1 := Pos(';', s);
  if Pos1 <> 0 then // erstes Semikolon gefunden
  begin
    // Position des zweiten Semikolons ermitteln;
    // dazu fangen wir gleich nach dem ersten Semikolon an zu suchen:
    Pos2 := PosEx(';', s, Pos1 + 1);
    if Pos2 <> 0 then
      edit1.Text:='gefunden an Position: ' + IntToStr(Pos2)
    else
      ShowMessage('nur ein Semikolon im String vorhanden');
  end
  else
  begin
    ShowMessage('kein Semikolon im String vorhanden');
  end;
//vvv ---- und das hier einfügen!!
end;

wäre der Code ordentlich formatiert gewesen.......
Gruß
K-H