StringList nach bestimmten Inhalt durchsuchen und ausgeben

[omata]

Vielleicht so...

Delphi-Quellcode:

procedure TForm.ButtonClick(Sender: TObject);
var StringList:TStringList;
    posi:integer;
    s:string;
begin
  StringList := TStringList.Create;
  try
    StringList.LoadFromFile('C:\Textfile.txt');
    s:=StringList.Text;
    delete(s, 1, pos('<Startwort>', s) + length('<Startwort>') - 1);
    Edit4.Text := copy(s, 1, pos('<Endewort>', s) - 1);
  finally
    StringList.free;
  end;
end;

Gruss
Thorsten