Hintergrund: "Wert" beinhaltet eigentlich einen Extended-Wert, für den ich vermeiden wollte, eine extra Klasse schreiben zu müssen, daher der Versuch, als String in TObject zu kapseln.
...dann muss ich wohl...
Ja nur zu und wenn du schon dabei bist, dann baue die Klasse doch noch etwas aus:
Delphi-Quellcode:
type
TKeyValueObject = class(TObject)
public
Key : string;
Value : Extended;
// der übergebene String wird in "Key" und "Value" zerlegt
procedure Parse(const s:string);
// vergleicht das übergebene Objekt mit self
// liefert -1, 0 oder +1 zurück
procedure CompareByValue(x:TKeyValueObject):Integer;
end;
So kleine Klassen lassen sich leicht testen und sind einfach zu verstehen.
Der Code im Formular nimmt ab und die Gesamtqualität wird besser.