Ukazatelové typové konstanty

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

Deklarace konstanty typu ukazatel obvykle obsahuje konstantní adresový výraz pro určení hodnoty ukazatele.

Pokud povolíte rozšířenou syntaxi překladače (direktivou {$X+}), můžete inicializovat typové konstanty typu PChar řetězcovou konstantou.

Příklady
  type
    Smer = (Velvo, Vpravo, Nahoru, Dolu);
    UkRetezec = ^String;
    UkUzel = ^Node;
    Node = record
      Dalsi: UkUzel;
      Symbol: UkRetezec;
      Hodnota: Smer;
    end;
  const
    S1: string[4] = 'DOLŮ';
    S2: string[2] = 'NAHORU';
    S3: string[5] = 'VPRAVO';
    S4: string[4] = 'VLEVO';
    N1: Node = (Dalsi: nil; Symbol: @S1; Hodnota: Down);
    N2: Node = (Dalsi: @N1; Symbol: @S2; Hodnota: Up);
    N3: Node = (Dalsi: @N2; Symbol: @S3; Hodnota: Right);
    N4: Node = (Dalsi: @N3; Symbol: @S4; Hodnota: Left);
    TabulkaSmeru: UkUzel = @N4;