Zitat von
franktron:
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;
Das kann doch gar nicht funktionieren! Für Item1^.X = 2, Item2^.X = 1, Item1^.Y = 1, Item2^.Y= 4 hat man round(1 + 0.5 - 4 + 1) = round(-1.5) < 0. Das Ergebnis sollte aber doch positiv sein, weil jaItem1^.X > Item2^.X ist. (Oder habe ich was übersehen?)
Gruß Gammatester