?? is.pas
字號:
{**************************}
{ FastScript v1.0 }
{ 'is' operator demo }
{**************************}
var
o: TObject;
p: TPersistent;
begin
o := TObject.Create;
p := TPersistent.Create;
if o is TObject then
ShowMessage('o is TObject');
if p is TObject then
ShowMessage('p is TObject');
if not (o is TPersistent) then
ShowMessage('o is not TPersistent');
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -