Tlist - Probleme

[r3v0]

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

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;