Pentru mai multe informații, consultați capitolul "Deschideți matricea" din ajutorul online.
Luat de la Consiliile Delphi de Valentin Ozerov
Colecția de Kuliba
Array de constante la timpul de execuție
TVarArray = matrice # 91; 0. Ridicat # 40; cuvânt # 41; div Dimensiune # 40; TVarRec # 41; - 1 # 93; din TVarRec;
în stivă, aceeași comandă de apel ca la un apel normal Format>
FormatProxy = funcție # 40; const aFormatStr: șir; var aVarRec: TVarRec;
highIndex: Integer # 41;. șir de caractere;
cu pRecs ^ [atIndex]. highIndex este cel mai mare index disponibil al pRecs, numărul
elemente distribuite - 1.>
procedura AddVarRecs # 40; pRecs: PVarArray; atIndex, highIndex: Integer; const A:
array of const # 41; ;
dacă pRecs <> nil atunci
pentru i: = 0 la Ridicat # 40; A # 41; face
dacă atIndex <= highIndex then
AddVarRecs # 40; p, 0. 3. # 91; 12. 0,5. „Șablon“ # 93; # 41; ;
AddVarRecs # 40; p, 3. 3. # 91; „Testul“ # 93; # 41; ;
@Proxy: = @SysUtils. Format;
Firește, poate fi generat și un șir de format
și la timpul de execuție
S: = Proxy # 40; 'Integer:., Real:% 4.2f, Linii:% s,% s'. p ^ # 91; 0 # 93;. 3 # 41; ;
ShowMessage # 40; S # 41; ;
FreeMem # 40; p, 4 * Dimensiune # 40; TVarRec # 41; # 41; ;
Const ptarr. mulțime # 91; 0. 4 # 93; Din TPoint =
# 40; # 40; x: 0; y: 4 # 41; .
# 40; x. 4; y: 4 # 41; # 41; ;