?? preview.pas
字號:
{*******************************
源碼排列例子
改寫這里的源碼,會在預覽
窗口顯示排列后的源代碼
*********************************}
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -