Пример массива констант (Array of Const) II
Как использовать "array of const"?
Массив констант (array of const) фактически является открытым массивом TVarRec (описание предекларированных типов Delphi вы можете найти в электронной справке). Приведенный ниже "псевдокод" на языке Object Pascal может послужить скелетом для дальнейшего развития:
| procedure AddStuff( Const A: Array of Const );Var i: Integer;BeginFor i:= Low(A) to High(A) DoWith A[i] DoCase VType ofvtExtended: Begin{ добавляем натуральное число, все real-форматыавтоматически приводятся к extended }End;vtInteger: Begin { добавляем целое число, все integer-форматыавтоматически приводятся к LongInt }End;vtObject: BeginIf VObject Is DArray ThenWith DArray( VObject ) Do Begin{ добавляем массив double-типа }EndElse If VObject Is IArray ThenWith IArray( VObject ) Do Begin{ добавляем массив integer-типа }End;End;End; { Case }End; { AddStuff } |
Для получения дополнительной информации загляните в главу "open arrays" электронной справки.
[000937]
