TDictionary Property

[hyype]

hallo,

ich habe eine Liste der Form TDictionary<string, olevariant).
dazu entsprechend nen getter
function GetValue(key:string): olevariant;
und nen setter
procedure SetValue(key:string; value: olevariant);

jetzt möchte ich entsprechend properties der folgenden Form anlegen:
property id : integer read GetValue('ID') write SetValue('ID');
property name : string read GetValue('Name') write SetValue('Name');

d.h. ich habe diverse Variablen unterschiedlicher Datentypen (deswegen ist auch der wert-typ des dictionary olevariant)
und möchte trotzdem direkt auf das TDictionary gehen.
in C# geht das, wie geht das in delphi?

Danke!

MfG

hyype

[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