TStringList gruppieren

[fanavity]

Danke für die Antwort

Ich habe das ganze nun mal so gemacht.. Ich hoffe das ist richtig?

Delphi-Quellcode:

  Type   Artikel= Record
         Test: String[2];
         ArtName: String[6];
         Anzahl : String[3];
         Preis: String[2];
  end;

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
Var
Artikelliste: Array[0..199] of Artikel;
...
Begin
i := 0;
     j := 0;
     while i < test.count -1 do begin

           Artikelliste[j].Test:= Test.Strings[i];
           i := i+1;
           Artikelliste[j].ArtName:= Test.Strings[i];
           i := i+1;
           Artikelliste[j].Anzahl := Test.Strings[i];
           i := i+1;
           Artikelliste[j].Preis:= Test.Strings[i];
           i := i+1;
           j := j+1;
    end;
end;

Nur jetzt stehe ich wieder vor der Frage, wie ich darin nun sortiere/gruppiere?!