program sample_dict1; {$APPTYPE CONSOLE} uses Generics.Collections; var dict: TDictionary<string,string>; s: string; begin dict := TDictionary<string,string>.Create; try dict.Add('でるふぁい', 'Delphi'); dict.Add('hoge', 'ふが'); Writeln(dict.ToString); for s in dict.Keys do Writeln(dict[s]); finally dict.Free; end; end.
output
TDictionary<System.string,System.string> Delphi ふが