Nur ein teil der text datei auslesen

[DeddyH]

Delphi-Quellcode:

const Dateiname = 'C:\test.txt';

procedure TForm1.Button1Click(Sender: TObject);
const SuchStr = 'start ';
var sl: TStringList;
    i: integer;
    wasduwillst: string;
begin
  wasduwillst := '';
  sl := TStringList.Create;
  try
    sl.LoadFromFile(Dateiname);
    for i := 0 to Pred(sl.Count) do
      begin
        if Pos(SuchStr,trim(sl[i])) = 1 then
          begin
            wasduwillst := Copy(sl[i],Pos(SuchStr,sl[i]) + Length(SuchStr),Length(sl[i]));
            break;
          end;
      end;
  finally
    FreeAndNil(sl);
  end;
  if Length(wasduwillst) > 0 then
    ShowMessage(wasduwillst);
end;