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.