mORMot 1.18 第13章 动态数组

众所周知，数组是非常有用的。但在现实生活中，情况是不可预测的，数组的元素数量或大小可能会随着时间的推移而增长。有些语言，如PHP，就使得动态数组的使用变得很简单。在使用mORMot的Delphi中，我们使用类和方法来提供这一功能。

首先，让我们声明一个典型的 TSQLRecord：

TSQLRecordPeople = class(TSQLRecord)
private
  fFirstname: RawUTF8;
published
  property Firstname: RawUTF8 read fFirstname write fFirstname;
end;

现在，我们将使用Integer（整数）、Currency（货币）和一个Record（记录）类型的动态数组对其进行扩展：

TFV = packed record
  Major, Minor, Release, Build: integer;
  Main, Detailed: string;
end;

TFVs = array of TFV;

TSQLRecordPeopleArray = class(TSQLRecordPeople)
private
  fInts: TIntegerDynArray;
  fCurrency: TCurrencyDynArray;
  fFileVersion: TFVs;
published
  property UTF8: RawUTF8 read fUTF8 write fUTF8;
  property Ints: TIntegerDynArray index 1 read fInts write fInts;
  property Currency: TCurrencyDynArray index 2 read fCurrency write fCurrency;
  property FileVersion: TFVs index 3 read fFileVersion write fFileVersion;
end;

以下是一个用于输出 TSQLRecordPeopleArray内容的函数：

procedure dumpva(VA: TSQLRecordPeopleArray);
var
  i: integer;
begin
  writeln('-----------------------------');
  writeln('Firstname : ', VA.Firstname);
  write('Ints : ');
  for i := Low(VA.Ints) to High(VA.Ints) do
    write(' ', VA.Ints[i]);
  writeln;
  write('Currency : ');
  for i := Low(VA.Currency) to High(VA.Currency) do
    write(' ', VA.Currency[i]);
  writeln;
  writeln('FileVersion.Main : ');
  for i := Low(VA.FileVersion) to High(VA.FileVersion) do
    writeln(' [', i, ']: ', VA.FileVersion[i].Main);
end;

现在，让我们来看看动态数组的实际应用：

var
  V1: TSQLRecordPeople;
  VA: TSQLRecordPeopleArray;
  FV: TFV;
  j: integer;
  f: currency;
  s: RawUTF8;
begin
  V1 := TSQLRecordPeople.Create;
  V1.Firstname := StringToUTF8('Erick');
  VA := TSQLRecordPeopleArray.Create;
  VA.FillFrom(V1);
  dumpva(VA);
  // 输出结果
  // -----------------------------
  // Firstname : Erick
  // Ints :
  // Currency :
  // FileVersion.Main :
  // 也就是说，还没有设置扩展数据集

  j := 1;
  VA.DynArray('Ints').Add(j);
  j := 5;
  VA.DynArray('Ints').Add(j);
  f := 3.14;
  VA.DynArray('Currency').Add(f);
  FV.Main := 'Yours';
  VA.DynArray('FileVersion').Add(FV);
  FV.Main := 'Vos';
  VA.DynArray('FileVersion').Add(FV);
  dumpva(VA);
  // 输出结果
  // -----------------------------
  // Firstname : Erick
  // Ints : 1 5
  // Currency : 3.14000000000000E+0000
  // FileVersion.Main :
  // [0]: Yours
  // [1]: Vos
end;

我们可以创建任何标量或记录类型的动态数组，包括RawUTF。

请注意，您必须首先将值分配给变量，因为mORMot使用变量的运行时类型信息（RTT）来了解数据的大小。因此，您不能使用以下方式：

VA.DynArray('Currency').Add(3.142);

mORMot将这些值以BLOB类型存储在数据库中。除了内存限制外，您可以存储的大小没有实际限制。