Suchen, vergleichen

[DeddyH]

Mit einer ListView (vsReport mit 2 Spalten) könnte man das z.B. so darstellen:

Delphi-Quellcode:

var sl: TStringlist;
    i, StufePos, BracketPos: integer;
    Item: TListItem;
begin
  sl := TStringlist.Create;
  try
    sl.LoadFromFile(<Dateiname>);
    for i := 0 to sl.Count - 1 do
      begin
        Item := ListView.Items.Add;
        //Alles bis zum ersten Leerzeichen kopieren
        Item.Caption := Copy(sl[i],1,Pos(' ',sl[i]) - 1);
        //Position des Wortes "Stufe"
        StufePos := Pos('Stufe',sl[i]);
        //Position der ersten schließenden Klammer
        BracketPos := Pos(')',sl[i]);
        //alles zwischen den ermittelten Positionen kopieren
        Item.SubItems.Add(Copy(sl[i],StufePos + 6, BracketPos - StufePos - 6));
      end;
  finally
    sl.Free;
  end;
end;