delphi - 在Delphi中存储一组值

我正在尝试在delphi中存储一组值，但是我希望能够使用它们的名称而不是分配的数字来寻址它们。

例如，“ OldValues”数组可以让我做

OldValue[1] := InflationEdit.Text;

但是，理想情况下，例如，我想将一个值存储在“ Data.Inflation.OldValue”中。对于每个标识符（例如通货膨胀），都有一个OldValue，NewValue和StoredValue。这些标识符大约有12个。

有什么办法可以存储这样的值？这样，我便可以执行以下操作：

Data.Inflation.NewValue := Data.Inflation.OldValue;
Data.Inflation.NewValue := InflationEdit.Text;

最佳答案

在此类问题上，上课真的很方便。喜欢的东西；

// Inflation record
TInflation = record
  NewValue,
  OldValue:string;
end;

/ data class
Tdata = class(object)
private
  Inflation:TInflation;
  // other properties
  ...
public
 constructor ...

end;

data := TData.create(nil)

data.Inflation.NewValue :=  data.inflation.OldValue;
...