delphi - 在 Delphi 中存储一组值

Question

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

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

OldValue[1] := InflationEdit.Text;

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

有什么方法可以存储这样的值吗？这样我就可以做类似的事情:

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

Answer 1

一个类对于解决这类问题确实非常方便。诸如此类的东西；

// 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;
...