Forum: Programmieren allgemein
by DeddyH,
11. Aug 2016
Nä, ich mag weder Alt noch Kölsch, ich trink höchstens ein Pilsken, woll?
Forum: Programmieren allgemein
by DeddyH,
11. Aug 2016
Das sollte doch nur eine kleine Anspielung auf einen gewissen anderen Thread sein ;)
Forum: Programmieren allgemein
by DeddyH,
11. Aug 2016
*Buhu* alle hacken auf mir rum, ich melde mich vom Forum ab :stupid:
Forum: Programmieren allgemein
by DeddyH,
11. Aug 2016
Siehste, dann müsste mein Einzeiler ja ausreichen ;)
Forum: Programmieren allgemein
by DeddyH,
11. Aug 2016
function SuperduperSort(Item1, Item2: Pointer): integer;
begin
Result := TArtValues(Item1).ArtNr - TArtValues(Item2).ArtNr;
end;
...
FVArtValues.Sort(SuperduperSort);
Ich bin mir ziemlich sicher, dass das Ergebnis nicht zwingend unbedingt 0, 1 oder -1 sein muss. Sollte ich mich irren, kann man das Funktionsergebnis ja noch mit Math.Sign auf den richtigen Wert bringen.
Forum: Programmieren allgemein
by DeddyH,
11. Aug 2016
Das Beispiel stand bereits in #6, Du musst nur noch den Klassennamen anpassen.
Forum: Programmieren allgemein
by DeddyH,
11. Aug 2016
Deine Liste verfügt über eine Methode namens Sort. Diese erwartet als Parameter eine Funktion, die wiederum 2 Pointer als Parameter erwartet und einen Integer zurückgibt. Diese Funktion musst Du selbst schreiben (siehe Stevies Code) und an Sort übergeben. Innerhalb der Funktion musst Du dann halt die Pointer in den Typ der Klasse casten, von dem die enthaltenen Objekte sind, damit auf auf deren...