|
Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
Delphi 10.2 Tokyo Enterprise
|
Re: Liste Sortieren nach 2 Parametern
27. Aug 2009, 09:50
Danke für die Antworten ich habe das jetzt so gelöst
Delphi-Quellcode:
function CompareNamesY(Item1, Item2: PData): Integer;
begin
Result:=Round(Item1^.Y+(1/Item1^.X)-Item2^.Y+(1/Item2^.X));
end;
Frank
Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
|