Пример массива констант (Array of Const)

Code:

type

{ объявляем тип для динамического массива array of TVarRecs }

TVarArray = array[0..High(Word) div Sizeof(TVarRec) - 1] of TVarRec;

PVarArray = ^TVarArray;

{ Объявляем alias-тип для функции Format. Передаваемые параметры будут иметь

в стеке тот же самый порядок вызова, что и при нормальном вызове Format }

FormatProxy = function(const aFormatStr: string; var aVarRec: TVarRec;

   highIndex: Integer): string;

{ AddVarRecs копирует параметры, передаваемые в массиве A в pRecs^, начиная

с pRecs^[atIndex]. highIndex - самый большой доступный индекс pRecs, число

распределенных элементов - 1. }

procedure AddVarRecs(pRecs: PVarArray; atIndex, highIndex: Integer; const A:

arrayofconst);

var

i: Integer;

begin

if pRecs <> nilthen

   for i := 0to High(A) do

   begin

     if atIndex <= highIndex then

     begin

       pRecs^[atIndex] := A[i];

       Inc(atIndex);

     end{ If }

     else

       Break;

   end; { For }

end; { AddVarRecs }

procedure TScratchMain.SpeedButton2Click(Sender: TObject);

var

p: PVarArray;

S: string;

Proxy: FormatProxy;

begin

{ распределяем массив для четырех параметров, индексы - 0..3 }

GetMem(p, 4 * Sizeof(TVarRec));

try

   { добавляем параметры последующими вызовами AddVarRecs }

   AddVarRecs(p, 0, 3, [12, 0.5, 'Шаблон']);

   AddVarRecs(p, 3, 3, ['Тест']);

   { получаем полномочия Format }

   @Proxy := @SysUtils.Format;

   { Вызов с динамически сгенерированным массивом параметров.

   Естественно, строка формата может также быть сформирована

   и во время выполнения программы. }

   S := Proxy('Целое: %d, Реальное: %4.2f, Строки: %s, %s', p^[0], 3);

   { выводим результат }

   ShowMessage(S);

finally

   FreeMem(p, 4 * Sizeof(TVarRec));

end;

end;

Code:

Const ptarr : Array[0..4] Of TPoint =

((x:0; y:4),

.

.

(x:4; y:4));