Delphi 1
Пример массива констант (Array of Const) II
Как использовать "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" электронной справки.
[000937]