Tlist - Probleme

[alcaeus]

Nur zur Information: ich bastle gerade an einer sortierbaren Variante der Objectlist, bei der du die Elemente eben sortieren kannst. Realisiert wird das ueber eine Callback-Funktion, d.h. du musst eine Funktion schreiben, die zurueckgibt ob der erste Wert groesser ist als der Zweite. So wird die Liste eben sortiert wie du es willst :)

Greetz
alcaeus

[shmia]

Für dein Problem wäre ein MemoryDataset sehr gut geeignet.
Ein MemoryDataset verhält sich so wie ein TTable, kann aber zusätzlich nach jedem Feld sortiert werden.
Weiterer Vorteil: man kann einfach ein DBGrid zur Visualisierung und zum Editieren verwenden.
http://www.torry.net/pages.php?id=572

[Coder]

Ich werde wohl unvorhergesehener Weise erst ab Montag wieder dazu kommen, denn leider bin ich aufgrund des Studiums und Seminaren bisher noch nicht dazugekommen mir Eure Angebote genauer anzuschauen.
Das o.g. Sortprog.pas gefiel mir aber schon sehr gut (kurz).

Dennoch möchte ich mich schon mal bei allen bedanken und frohe Pfingsttage/ Freitage wünschen.

Aber ich gebe Rückmeldung :D
Bis dann

[r3v0]

Hallo zusammen,

Ich habe ein Problem mit der Sortierung einer meiner TLists.

Und zwar will ich sie nach 4 verschiedenen kriterien sortierne.
3 klappen eins nicht.

Edit: Das erste Also Text Aufsteigend Klappert nicht!!!!!

Sieht einer evtl den fehler?

Delphi-Quellcode:

function CompareNames(Item1, Item2: Pointer): Integer;
begin
  Result := CompareText(Inhaltcsvdateikaputt(Item1).Bildname, Inhaltcsvdateikaputt(Item2).Bildname);
end;

function CompareTextDown(Item1, Item2: Pointer): Integer;
begin
  Result := CompareText( Inhaltcsvdateikaputt(Item2).Bildname, Inhaltcsvdateikaputt(Item1).Bildname);
end;

function CompareBetrag(Item1, Item2: Pointer): Integer;
begin
  Result := trunc(Inhaltcsvdateikaputt(Item1).Betrag - Inhaltcsvdateikaputt(Item2).Betrag);
end;

function CompareBetragDown(Item1, Item2: Pointer): Integer;
begin
  Result := trunc(Inhaltcsvdateikaputt(Item2).Betrag - Inhaltcsvdateikaputt(Item1).Betrag);
end;

procedure Tfrminhaltcsv.RadioGroup1Click(Sender: TObject);
begin
  sortlistefalsch;
end;

procedure Tfrminhaltcsv.sortlistefalsch;
begin
   case RadioGroup1.ItemIndex of
      0 : lst.Sort(@CompareText);
      1 : lst.Sort(@CompareTextDown);
      2 : lst.Sort(@CompareBetrag);
      3 : lst.Sort(@CompareBetragDown);
   end;
   fuelleGridFalsch;
end;

[r3v0]

Zitat:

Zitat von r3v0

Hallo zusammen,

Ich habe ein Problem mit der Sortierung einer meiner TLists.

Und zwar will ich sie nach 4 verschiedenen kriterien sortierne.
3 klappen eins nicht.

Edit: Das erste Also Text Aufsteigend Klappert nicht!!!!!

Edit2: Okay Okay! Scheiß copy und paste fehler :P

Ich habe einfach die sortierung mit dem falschen namen aufgerufen!
Schade das delphi da nicht meckert aber naja jetzt klappert alles!
kann manja als bsp drin stehen lassen :)

Sieht einer evtl den fehler?

Delphi-Quellcode:

function CompareNames(Item1, Item2: Pointer): Integer;
begin
  Result := CompareText(Inhaltcsvdateikaputt(Item1).Bildname, Inhaltcsvdateikaputt(Item2).Bildname);
end;

function CompareTextDown(Item1, Item2: Pointer): Integer;
begin
  Result := CompareText( Inhaltcsvdateikaputt(Item2).Bildname, Inhaltcsvdateikaputt(Item1).Bildname);
end;

function CompareBetrag(Item1, Item2: Pointer): Integer;
begin
  Result := trunc(Inhaltcsvdateikaputt(Item1).Betrag - Inhaltcsvdateikaputt(Item2).Betrag);
end;

function CompareBetragDown(Item1, Item2: Pointer): Integer;
begin
  Result := trunc(Inhaltcsvdateikaputt(Item2).Betrag - Inhaltcsvdateikaputt(Item1).Betrag);
end;

procedure Tfrminhaltcsv.RadioGroup1Click(Sender: TObject);
begin
  sortlistefalsch;
end;

procedure Tfrminhaltcsv.sortlistefalsch;
begin
   case RadioGroup1.ItemIndex of
      0 : lst.Sort(@CompareNames);
      1 : lst.Sort(@CompareTextDown);
      2 : lst.Sort(@CompareBetrag);
      3 : lst.Sort(@CompareBetragDown);
   end;
   fuelleGridFalsch;
end;

[grenzgaenger]

hallo coder,

an deiner stelle, würde ich dennoch die tobjectlist bevorzugen, da du dich dannn (in den standardeinstellungen) nicht um solche dinge kümmernmusst, wie speicherallokation und speicherfreigabe und ausserdem kannste deinen einzelnen objekten überlassen, wie sie die schlüssel generieren.

aber mal jetzt zum kernpunkt deiner frage...

du hast 'n 4 stufigen gruppenwechsel, von aussen nach innen, um den von innen nach aussen zu sortieren, muste in von innen nach aussen sortieren... und zwar so oft du 'n gruppenwechsel hast... allso mal hier 'n quellcode, von deiner tobjectlist, welche dir das sortierne übernimmt...

Delphi-Quellcode:

tol.sort(g1.gl, g2,gl);
tol.sort(g1.k, g2,l);
tol.sort(g1.g, g2.g);
tol.sort(g1.n, g2.n);

und schon haste deine sortierung so aufbereitet, wie du es dir wünscht :-)

noch einen schönen abend und viel erfolg
gg

edit: sorry, hab dein problem erst jetzt erkannt... das machste am besten über 'n case...

Delphi-Quellcode:

case sortmode of
 1: tol.sort(g1.gl, g2,gl);
 2: tol.sort(g1.k, g2,l);
 3: tol.sort(g1.g, g2.g);
 4: tol.sort(g1.n, g2.n);
 else
 fehlermeldung;
end;

das andere klateratatsch, bleibt das selbe... musst nur statt 'n gruppenwechsel, einfach sortieren... 'mmmhh, ist das easy ... :cheers: