preview.pas

来自「Delphi对源码进行排列」· PAS 代码 · 共 56 行

{*******************************
源码排列例子
改写这里的源码,会在预览
窗口显示排列后的源代码
*********************************}
unit Preview;

interface
//uses子句
uses Windows, SysUtils, Classes,
  Graphics, Forms;

type
  TClass = class(TObject)
  //标准标识符
  private
    procedure M1(S: Integer); virtual;
  public
    function Foo: Integer;
  end;

//变量定义
var S:integer=0;
    g_TheFirstIsUpCase:boolean;

implementation

//保留字
function Foo: Integer;
begin
  g_thefirstisupcase:=true;//看这里的变化,和声明时一样
  Result := 0;
end;

procedure TClass.M1(S: Integer);
  //局部过程
  procedure SubProc;
  begin
    S := 9;
  end;
const
  J = 10;
var
  J: Double;
begin
  if S > J then//begin会移上来(可选)
  begin
    SubProc; inttostr(s);
  end
  else
  begin
    S := Foo;
  end;
end;
end.