delphi32.dci

来自「delphi 写的delphi的程序 Handel is a free, st」· DCI 代码 · 共 134 行

cases
=case | of
=  : ;
=  : ;
=end;

casee
=case | of
=  : ;
=  : ;
=else ;
=end;

classf
=T| = class(T)
=private
=
=protected
=
=public
=
=published
=
=end;

classd
=T| = class(T)
=
=end;

classc
=T| = class(T)
=private
=
=protected
=
=public
=  constructor Create; override;
=  destructor Destroy; override;
=published
=
=end;

fors 
= for | :=  to  do

forb
=for | :=  to  do
=begin
=
=end;

function
=function |(): ;
=begin
=
=end;

ifs
=if | then

ifb
=if | then
=begin
=
=end;

ife
=if | then
=
=else

ifeb
=if | then
=begin
=
=end
=else
=begin
=
=end;

procedure
=procedure |();
=begin
=
=end;

trye
=try
=  |
=except
=
=end;

tryf
=try
=  |
=finally
=
=end;

trycf
=|variable := typename.Create;
=try
=
=finally
=  variable.Free;
=end;

whileb
=while | do
=begin
=
=end;

whiles
=while | do

whileb
=with | do
=begin
=
=end;

withb
=with | do
=begin
=
=end;

withs
=with | do