Stringlist und tobject zum Xten mal

[shmia]

Zitat von friedemann2009:

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.