Для отримання додаткової інформації завітайте в розділ "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; ;