Einzelnen Beitrag anzeigen

Furtbichler
(Gast)

n/a Beiträge
 
#8

AW: TDictionary Property

  Alt 6. Jun 2012, 07:46
Ich habe mir so geholfen:
Delphi-Quellcode:
Type
  TConfig = Class
  Public
    Property Value1 : Integer index 0 Read GetIntegerValue Write SetIntegerValue;
    Property Value2 : String index 1 Read GetStringValue Write SetStringValue;
    Property Value3 : Integer index 2 Read GetIntegerValue Write SetIntegerValue;
...
  End;

Const
  PropertyNames : Array [0..N] Of String = ('MyValue','AnotherValue','BarValue'...);

Function TConfig.GetIntegerValue (Index : Integer) : Integer;
Begin
  Result := StrToIntDef(GetValueByName(PropertyNames[Index]));
End;
...
Also: Pro Datentyp jeweils ein Getter und Setter, der die Daten dann über den Propertynamen abholt bzw. setzt.
  Mit Zitat antworten Zitat