Type/fi

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

From the Free Pascal wiki, page "Type/fi", as it stood on 2022-08-06 after a change by Kai Burghardt, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.