testlocaltypes.out

来自「格式化源码的最新板」· OUT 代码 · 共 59 行

unit testlocaltypes;

interface

implementation

uses Dialogs;

procedure fred;
type
  tfred = integer;
const
  fred = 'hello wold';
var
  li: tfred;
begin
  ShowMessage('Fred was here');
end;

procedure jim;
type
  tgoon     = (nedseagoon, eccles, bluebottle, henrycrun, bloodnok);
  tgoons    = set of tgoon;
  ptgoon    = ^tgoon;
  pgoonproc = function: tgoon of object;
const
  protagonist:
    tgoon = nedseagoon;
begin
  ShowMessage('Allo Jiim');
end;

procedure classlesssociety;
type
  tbub = boolean;
  tfredsnumbers = 42..122;
var
  liwhatfredhas: tfredsnumbers;
begin
end;

procedure hasrecords;
type
  tfoo = record
    libar: integer;
    libaz: string;
  end;

  tfoo2 = record
    bar: integer;
    case spon: boolean of
      True: (baz: PChar);
      False: (fred: integer);
  end;
begin
end;

end.