Пример массива констант (Array of Const) 2
Массив констант (array of const) фактически является открытым массивом TVarRec
(описание предекларированных типов Delphi вы можете найти в электронной
справке). Приведенный ниже "псевдокод" на языке Object Pascal может послужить
скелетом для дальнейшего развития:
procedure AddStuff(const A: array of const);
var
i: Integer;
begin
for i := Low(A) to High(A) do
with A[i] do
case VType of
vtExtended:
begin
{ добавляем натуральное число, все real-форматы
автоматически приводятся к extended }
end;
vtInteger:
begin
{ добавляем целое число, все integer-форматы
автоматически приводятся к LongInt }
end;
vtObject:
begin
if VObject is DArray then
with DArray(VObject) do
begin
{ добавляем массив double-типа }
end
else if VObject is IArray then
with IArray(VObject) do
begin
{ добавляем массив integer-типа }
end;
end;
end; { Case }
end; { AddStuff }
|
Для получения дополнительной информации загляните в главу "open arrays"
электронной справки.
|
