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.

Katso myös

• § “Type Aliases” in the Reference Guide