{*******************************
源碼排列例子
改寫這里的源碼,會在預覽
窗口顯示排列后的源代碼
*********************************}
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.