本文整理自网络,侵删。
uses Generics.Collections;
procedure TForm1.FormCreate(Sender: TObject);varFDic: TDictionary<string,string>;beginFDic:= TDictionary<string,string>.Create;FDic.AddOrSetValue('123', '456');Caption:=FDic.Items['123'];FDic.Free;end;
相关阅读 >>
Delphi [数据库连接字符串] access 连接字符串
更多相关阅读请进入《Delphi》频道 >>