ausgeben bestimmter informationen aus txt datei

[Mr_G]

Man könnte es auch so machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var List: TStringList;
    Zeile: Integer;
begin
  List := TStringList.Create;
  List.LoadFromFile('D:\zug.txt');
  Zeile := List.IndexOf('|| Status: Mission 1 ||');
  if Zeile > -1 then
    Memo1.Lines.Add(List[Zeile]);
end;

Zu beachten ist dabei jedoch was die OH sagt:

Zitat:

Mit IndexOf können Sie das erste Vorkommen eines Strings, der mit dem String S übereinstimmt, ermitteln. Ein String stimmt mit S überein, wenn er mit S identisch ist oder – wenn CaseSensitive false ist – sich nur bezüglich der Groß-/Kleinschreibung von S unterscheidet.

IndexOf gibt den auf Null basierenden Index des Strings zurück. Daraus ergibt sich folgendes Schema: Wenn S mit dem ersten String in der Liste übereinstimmt, gibt IndexOf den Wert 0 zurück. Wenn S der zweite String in der Liste ist, wird –1 zurückgegeben usw. Entspricht S dem zweiten String, gibt IndexOf 1 zurück usw. Existiert keine Fundstelle in der Stringliste, gibt IndexOf -1 zurück.