Как использовать "array of const"?
Массив констант (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"
электронной справки. |