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

[Jumpy]

Zunächst mal: Es müssen nicht alles Strings sein in dem Record. Die Anzahl könntest du auch in irgendeinem Integer speichern. Dann wird das addieren nachher weniger umständlich.

Zum Problem: Statt eines Arrays mit den Records oder Klassen diese wirklich in eine T(Object)List packen, da diese eine Sortierfunktion haben. Vllt. mal nach TList sortieren suchen, um zu sehen, wie das genau geht.

[fanavity]

Naja ich will ja nicht wirklich Sortieren.. Sondern mehr oder weniger nur Vergleichen und ggf addieren/ersetzten. Das hat ja im Grunde nichts mit der STort-Funktion zu tun.. Oder sehe ich das falsch?

[Jumpy]

Hast schon recht. War bei mir eher ein Optimierungsgedanke, damit du nicht die Liste so oft durcheiern musst, denn unsortiert musst du das erste Element nehmen, dann die ganze Liste durchgehen und deine Additionsgechichte durchführen wann immer du das Element nochmal findest.
Dann das zweite Element nehmen und dann die ganze Liste durchgehen...
Dann das dritte Element nehmen und dann die ganze Liste durchgehen...

Zwei verschachtelte Schleifen ist jetzt programmiertechnisch nix wildes, aber halt suboptimal.

Ist die Liste sortiert nimmst du das erste Element als Startelement.
Schaust ob das/die nächste(n) gleich ist und addierst,
andenfalls ist das nächste halt dein neues Startelement.