Type/fi
│
Deutsch (de) │
English (en) │
suomi (fi) │
français (fr) │
русский (ru) │
Varattua sanaa type
käytetään:
- Aloittamaan osiot käyttäjän määrittelemille tyypeille ja
- Tunnistamaan uusi tyyppi, kun viitataan toiseen tietotyyppiin
Oman tyypin määrittely
Type
aloittaa osion, jossa ohjelmoija voi liittää tunnisteita uusiin tietotyyppeihin, erityisesti strukturoituihin tietotyyppeihin, kuten tietueisiin (record).
program typeDemo(input, output, stderr);
type
atom = record
electrons: longword;
neutrons: longword;
protons: longword;
end;
var
x: atom;
begin
x.protons := 1; // H
x.neutrons := 1; // D
x.electrons := 1; // 0
end.
Tyyppialiakset
Type
osiossa voidaan julistaa jo olemassa olevien tai aiemmin määriteltyjen tietotyyppien aliakset. Seuraavassa esimerkissä käytetään ehdollista kokoamista (conditional compilation), jotta alias on suurin käytettävissä oleva positiivinen (etumerkitön) kokonaisluku, joka on wholeNumber
(huomaa, että on jo olemassa
system.nativeUInt
).
program typeAliasDemo(input, output, stderr);
type
wholeNumber =
{$ifdef CPU64}
qword
{$else}
{$ifdef CPU32}
longword
{$else}
{$fatal whole number too small}
{$endif}
{$endif}
;
begin
end.
Tyyppiklooni
Type
osiossa on tyypin tunniste, jota edeltää sana type
, kloonaa tyypin, tyyppi-informaationsa, mutta luo erilaisia tyyppejä.
program typeCloneDemo(input, output, stderr);
type
wholeNumber = type qword;
begin
writeLn('qword: ', sysBackTraceStr(typeInfo(qword)));
writeLn('wholeNumber: ', sysBackTraceStr(typeInfo(wholeNumber)));
end.
Tämä voidaan tehdä esimerkiksi määrittelemään kokonaan uuden operaattoreiden joukon. Muussa tapauksessa operaattorin määritelmiä, joita tyypille kloonattiin, sovelletaan edelleen.