einem string einen Wert zuweisen (bzw. schnell suchen)

[theo]

Du musst ein TObjectDictionary<,>, statt nur TDictionary<,> verwenden und dann im Konstruktor [doOwnsValues] als Parameter übergeben.

Danke, werde ich morgen ausprobieren.

Nicht gerade hilfreich ist auch, dass die IDE (Code Insight) mit Generics.Collections nicht wirklich hinterher kommt, zumindest nicht in meiner Trunk Version vom 24.6.22
Lazarus 2.3.0 (rev main-2_3-1628-g6b107a3e45) FPC 3.2.2 x86_64-linux-gtk2

Also ohne ausführliche Doku (habe ich jedenfalls nicht gefunden) und ohne Code Insight ist es schon etwas hart.

[theo]

Ja, stimmt. So geht es:

Code: Alles auswählen

type
TVokabelDict = class(specialize TObjectDictionary<string, TVokabelInfo>); 
...
procedure TForm1.Button1Click(Sender: TObject);
var
  VokDict: TVokabelDict;
begin
  VokDict := TVokabelDict.Create([doOwnsValues]);
  VokDict.Add('eins', TVokabelInfo.Create('Test_1'));
  VokDict.Add('zwei', TVokabelInfo.Create('Test_2'));
  ShowMessage(VokDict.Items['zwei'].Test);
  VokDict.Free;
end;    

[PascalDragon]

Also ohne ausführliche Doku (habe ich jedenfalls nicht gefunden) und ohne Code Insight ist es schon etwas hart.

Da Generics.Collections Delphi-kompatibel ist, kann man notfalls auch die Delphi Doku hernehmen