5

我想TDictionary在 Delphi 项目中使用 a 。但是我有一个问题,我怎样才能创建一个TDictionary默认值的常量数组?

例如,我想为字典分配 4 个项目,例如波纹管代码(用于常量数组TItem):

...
type
  TItem = record
    _Key: string;
    _Value: string;
  end;
var
  Dic: array [0..3]of TItem=(
  (_Key:'A' ; _Value:'Apple'),
  (_Key:'B' ; _Value:'Book'),
  (_Key:'C' ; _Value:'C++'),
  (_Key:'D' ; _Value:'Delphi')
  );
...

有什么办法可以做这项工作TDictionary吗?我想创建一个Dic(但是)的常量数组,例如波纹管结构。

  ...
    var
      Dic: TDictionary<string, string>;
    begin
      Dic := TDictionary<string, string>.Create;
      try
        Dic.Add('A', 'Apple');
        Dic.Add('B', 'Book');
        Dic.Add('C', 'C++');
        Dic.Add('D', 'Delphi');
      finally
         ///
      end;
    ...

有人对我有什么建议吗?(如果我的英语很差,请见谅!)

4

2 回答 2

10

您不能编写作为类实例的常量表达式。

然而,由于您TDictionary的集合String是您可以用来创建常量的类型,因此您可以TDictionary在运行时从常量构建您的集合。您可以在问题中使用记录,但我喜欢数组:

{$IFDEF WHATEVER}
type
  TDictConstant = array[0..3, 0..1] of String;
const
  DICT_CONSTANT: TDictConstant = (('A', 'Apple'), ('B', 'Book'), ('C', 'C++'), ('D', 'Delphi'));
{$ELSE}
// If you want it "blank" for one config
type
  TDictConstant = array[0..0, 0..1] of String;
const
  DICT_CONSTANT: TDictConstant = (('', ''));
{$ENDIF}
var
  Dic: TDictionary<string, string>;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  Dic := TDictionary<string, string>.Create;
  for i := 0 to High(DICT_CONSTANT) do
  begin
    // Ignore the "blank" ones
    if (DICT_CONSTANT[i][0] <> '') or (DICT_CONSTANT[i][1] <> '') then
    begin
      Dic.Add(DICT_CONSTANT[i][0], DICT_CONSTANT[i][1]);
    end;
  end;
end;

我过去做过类似的事情。

于 2013-10-29T19:30:03.177 回答
5

您不能编写作为类实例的常量表达式。所以你试图做的事情是不可能的。

于 2013-10-29T19:12:29.337 回答