Приклад масиву констант (array of const), delphisite

Для отримання додаткової інформації завітайте в розділ "open arrays" електронної довідки.
Взято з Рад по Delphi від Валентина Озерова
Збірник Kuliba

Масив констант під час виконання додатка

TVarArray = array # 91; 0. High # 40; Word # 41; div Sizeof # 40; TVarRec # 41; - 1 # 93; of TVarRec;

в стеці той же самий порядок виклику, що і при нормальному виклику Format>

FormatProxy = function # 40; const aFormatStr: string; var aVarRec: TVarRec;

highIndex: Integer # 41 ;. string;

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

розподілених елементів - 1.>

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

array of const # 41; ;

if pRecs <> nil then

for i: = 0 to High # 40; A # 41; do

if atIndex <= highIndex then

AddVarRecs # 40; p, 0. 3. # 91; 12. 0.5. 'Шаблон' # 93; # 41; ;

AddVarRecs # 40; p, 3. 3. # 91; 'Тест' # 93; # 41; ;

@Proxy: = @SysUtils. Format;

Природно, рядок формату може також бути сформована

і під час виконання програми.>

S: = Proxy # 40; 'Ціле:., Реальне:% 4.2f, Рядки:% s,% s'. p ^ # 91; 0 # 93 ;. 3 # 41; ;

ShowMessage # 40; S # 41; ;

FreeMem # 40; p, 4 * Sizeof # 40; TVarRec # 41; # 41; ;

Const ptarr. Array # 91; 0. 4 # 93; Of TPoint =

# 40; # 40; x: 0; y: 4 # 41; ,

# 40; x. 4; y: 4 # 41; # 41; ;