Советы по Delphi


Пример массива констант (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]




Начало  Назад  Вперед



Книжный магазин