使用关联字符串(键/值)的最简单方法是什么?

Fab*_*mes 6 delphi

我有很多常量相关的常量,在某些时候我需要配对它们,像这样:

const
  key1 = '1';
  key2 = '2';
  key3 = '3';

  value1 = 'a';
  value2 = 'b';
  value3 = 'c';
Run Code Online (Sandbox Code Playgroud)

我想避免这样做:

if MyValue = key1 then Result := value1;
Run Code Online (Sandbox Code Playgroud)

我知道如何使用字符串列表:

MyStringList.Add(key1 + '=' + value1);
Result := MyStringList.Values[key1];
Run Code Online (Sandbox Code Playgroud)

但是,有没有更简单的方法呢?

小智 9

是的,可以通过这种方式完成赋值,避免手动字符串连接:

MyStringList.Values[Key1] := Value1;
Run Code Online (Sandbox Code Playgroud)