const, array, structure hepsi bir arada yapilir

[z]

stru =Record
    n:string;
    v:byte;
end;

Seklinde tanim yaptim.

Tablo: array [0..10] of stru; diyebiliyoruz.

Fakat derdim Tabloyu const tanimlamak ve icine degerleri programi yazma asamasinda doldurmak.

Bunun yolu varmi?

Mesela amacim asagidaki gibi tanimın cons olanını yapmak.

Tablo[0].n:='PIC' ; Mesela Tablo[0].v:='16' ;
Tablo[1].n:='ATM' ; Mesela Tablo[0].v:='24' ;
Tablo[2].n:='ZLG' ; Mesela Tablo[0].v:='08' ;

[birumher]

Şöyle;

Type
  TDenemeRecord = Record
     Number : Integer;
     Name : String;
     Description : String;
  End;

Const
cDenemeRecordlari : Array [0..2] Of TDenemeRecord =
(
(Number: 0; Name: 'isim1'; Description : 'yok'),
(Number: 1000; Name: 'isim2'; Description: 'Description1'),
(Number: 2000; Name: 'isim3'; Description: 'Description2')
);