TDictionary Property

[daywalker9]

In C# sind die Properties etwas anders, als in Delphi:

In deinem Falle müsstest Du statt GetValue("ID") eine extra Funktion GetIdValue nehmen und dort dann Result := GetValue('ID') aufrufen.

Delphi lässt Funktionen mit Parameter an der Stelle nicht zu.

[hyype]

juhu, 46 sinnlose getter und setter implementieren ^^
danke dir, leider habe ich das schon befürchtet und sitze schon dran :'(

[Furtbichler]

Zitat von hyype:

juhu, 46 sinnlose getter und setter implementieren ^^
danke dir, leider habe ich das schon befürchtet und sitze schon dran :'(

46 Properties? Na, wenn das kein design flaw ist...

[himitsu]

Delphi-Quellcode:

function Getter(Index: Integer): string;
procedure Setter(idx: Integer; Value: string);

property abc: string index 0 read Getter write Setter;
property def: string index 1 read Getter write Setter;
property xyz: string index 666 read Getter write Setter;

[Namenloser]

Funktioniert aber leider nicht mit Strings als Index

[himitsu]

Das leider nicht (auch wenn das bestimmt leicht umsetzbar wäre), aber mit (Integer)-Konstanten funktioniert es wenigstens.

[Furtbichler]

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.