mORMot 1.18 第13章 动态数组

mORMot 1.18 第13章 动态数组

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

1. TSQLRecordPeople = class(TSQLRecord)
2. private
3.   fFirstname: RawUTF8;
4. published
5.   property Firstname: RawUTF8 read fFirstname write fFirstname;
6. end;

复制代码

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

1. TFV = packed record
2.   Major, Minor, Release, Build: integer;
3.   Main, Detailed: string;
4. end;
6. TFVs = array of TFV;
8. TSQLRecordPeopleArray = class(TSQLRecordPeople)
9. private
10.   fInts: TIntegerDynArray;
11.   fCurrency: TCurrencyDynArray;
12.   fFileVersion: TFVs;
13. published
14.   property UTF8: RawUTF8 read fUTF8 write fUTF8;
15.   property Ints: TIntegerDynArray index 1 read fInts write fInts;
16.   property Currency: TCurrencyDynArray index 2 read fCurrency write fCurrency;
17.   property FileVersion: TFVs index 3 read fFileVersion write fFileVersion;
18. end;

复制代码

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

1. procedure dumpva(VA: TSQLRecordPeopleArray);
2. var
3.   i: integer;
4. begin
5.   writeln('-----------------------------');
6.   writeln('Firstname : ', VA.Firstname);
7.   write('Ints : ');
8.   for i := Low(VA.Ints) to High(VA.Ints) do
9.     write(' ', VA.Ints[i]);
10.   writeln;
11.   write('Currency : ');
12.   for i := Low(VA.Currency) to High(VA.Currency) do
13.     write(' ', VA.Currency[i]);
14.   writeln;
15.   writeln('FileVersion.Main : ');
16.   for i := Low(VA.FileVersion) to High(VA.FileVersion) do
17.     writeln(' [', i, ']: ', VA.FileVersion[i].Main);
18. end;

复制代码

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

1. var
2.   V1: TSQLRecordPeople;
3.   VA: TSQLRecordPeopleArray;
4.   FV: TFV;
5.   j: integer;
6.   f: currency;
7.   s: RawUTF8;
8. begin
9.   V1 := TSQLRecordPeople.Create;
10.   V1.Firstname := StringToUTF8('Erick');
11.   VA := TSQLRecordPeopleArray.Create;
12.   VA.FillFrom(V1);
13.   dumpva(VA);
14.   // 输出结果
15.   // -----------------------------
16.   // Firstname : Erick
17.   // Ints :
18.   // Currency :
19.   // FileVersion.Main :
20.   // 也就是说，还没有设置扩展数据集
22.   j := 1;
23.   VA.DynArray('Ints').Add(j);
24.   j := 5;
25.   VA.DynArray('Ints').Add(j);
26.   f := 3.14;
27.   VA.DynArray('Currency').Add(f);
28.   FV.Main := 'Yours';
29.   VA.DynArray('FileVersion').Add(FV);
30.   FV.Main := 'Vos';
31.   VA.DynArray('FileVersion').Add(FV);
32.   dumpva(VA);
33.   // 输出结果
34.   // -----------------------------
35.   // Firstname : Erick
36.   // Ints : 1 5
37.   // Currency : 3.14000000000000E+0000
38.   // FileVersion.Main :
39.   // [0]: Yours
40.   // [1]: Vos
41. end;

复制代码

我们可以创建任何标量或记载类型的动态数组，包括RawUTF。
请留意，您必须首先将值分配给变量，由于mORMot利用变量的运行时类型信息（RTT）来了解数据的大小。因此，您不能利用以下方式：

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

复制代码

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

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！更多信息从访问主页：qidao123.com:ToB企服之家，中国第一个企服评测及商务社交产业平台。