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?!