Példa állandók array (tömb const), delphisite

További információkért tekintse meg a fejezet a „nyitott tömbök” online segítséget.
Venni a Tanács a Delphi Valentine Ozerov
Gyűjtemény Kuliba

Array állandók alkalmazása során végrehajtás

TVarArray = array # 91; 0. # 40; szó # 41; div sizeof # 40; TVarRec # 41; - 1 # 93; A TVarRec;

A köteg ugyanolyan eljárást a hívás egy normál hívás Format>

FormatProxy = függvény # 40; const aFormatStr: string; var aVarRec: TVarRec;

highIndex Integer # 41;. string;

A PREC-k ^ [atIndex]. highIndex - a legnagyobb elérhető PREC-k index száma

elosztott elemek - 1>

eljárás AddVarRecs # 40; PREC-k: PVarArray; atIndex, highIndex: egész; const A:

tömb const # 41; ;

ha PREC-k <> nulla, akkor

i: = 0 a Magas # 40; A # 41; csinál

ha atIndex <= highIndex then

AddVarRecs # 40; p, 0 3. # 91; 12. 0.5. „Sablon” # 93; # 41; ;

AddVarRecs # 40; p, 3. 3. # 91; 'Test' # 93; # 41; ;

@Proxy: = @SysUtils. Format;

Természetesen a méret vonal is kialakíthatók

és a program során.>

S: = Proxy # 40; 'Egész:. Tényleges:% 4.2f, karakterlánc:% s,% s'. p ^ # 91; 0 # 93;. 3 # 41; ;

ShowMessage # 40; S # 41; ;

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

Const ptarr. sor # 91; 0. 4 # 93; A TPoint =

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

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