?? unit2.dfm
字號:
object Form2: TForm2
Left = 93
Top = 129
Width = 841
Height = 414
Caption = 'Form2'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 16
Top = 16
Width = 393
Height = 329
ActivePage = TabSheet1
TabOrder = 0
OnChange = PageControl1Change
object TabSheet1: TTabSheet
Caption = 'Proc'#20989#25968
object Memo1: TMemo
Left = 0
Top = 0
Width = 385
Height = 301
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Lines.Strings = (
'var'
' a, b, i: integer;'
''
' procedure p1(arg1: integer; arg2: integer);'
' begin'
' a := arg1 * arg2;'
' end;'
'begin'
' b := 123;'
' p1(3, b);'
''
'end;')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
end
end
object TabSheet2: TTabSheet
Caption = 'For'#24490#29615
ImageIndex = 1
object Memo2: TMemo
Left = 0
Top = 0
Width = 385
Height = 301
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Lines.Strings = (
'var'
' a, b, i: integer;'
'begin'
' a := 0;'
' for i := 0 to 100 do'
' begin'
' a := a + i;'
' end;'
'end;')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
end
end
object TabSheet3: TTabSheet
Caption = 'While'#24490#29615
ImageIndex = 2
object Memo3: TMemo
Left = 0
Top = 0
Width = 385
Height = 301
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Lines.Strings = (
'var'
' a, i: integer;'
'begin'
' i := 0;'
' a := 0;'
' while i <= 100 do'
' begin'
' a := a +i; '
' i := i +1;'
' end;'
'end;')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
end
end
object TabSheet4: TTabSheet
Caption = 'Repeat'#24490#29615
ImageIndex = 3
object Memo4: TMemo
Left = 0
Top = 0
Width = 385
Height = 301
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Lines.Strings = (
'var'
' a, i: integer;'
'begin'
' a := 0;'
' i := 0;'
''
' repeat'
' a := a + i;'
' i := i + 1;'
' until i > 100; '
'end;')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
end
end
object TabSheet5: TTabSheet
Caption = 'Fun'#20989#25968
ImageIndex = 4
object Memo5: TMemo
Left = 0
Top = 0
Width = 385
Height = 301
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Lines.Strings = (
'var'
' a, i: integer;'
' function fun1(arg1, arg2: integer): integer;'
' begin'
' Result := arg1 + arg2;'
' end;'
'begin'
' a := 0;'
' for i := 1 to 100 do'
' begin'
' a := fun1(a, i);'
''
'end;')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
end
end
object TabSheet10: TTabSheet
Caption = 'If'#35821#21477
ImageIndex = 5
object Memo6: TMemo
Left = 0
Top = 0
Width = 385
Height = 301
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Lines.Strings = (
'var'
' a, i: integer;'
'begin'
' a := 2;'
' if a = 1 then'
' begin'
' i := 10;'
' end'
' else begin'
' i := 100;'
' end;'
'end;')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
end
end
object TabSheet12: TTabSheet
Caption = #35843#29992#22806#37096#20989#25968
ImageIndex = 7
object Memo8: TMemo
Left = 0
Top = 0
Width = 385
Height = 301
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Lines.Strings = (
'var'
' a: integer;'
'begin'
' a := 123;'
' ShowMessage(a);'
' a := 23;'
'end;')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
end
end
object TabSheet11: TTabSheet
Caption = #36882#24402
ImageIndex = 6
object Memo7: TMemo
Left = 0
Top = 0
Width = 385
Height = 301
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Lines.Strings = (
'var'
' a, b: integer;'
''
' function f1(arg: integer): integer;'
' begin'
' if arg <= 1 then'
' begin'
' Result := 1;'
' end'
' else begin'
' Result := arg * f1(arg - 1);'
' end;'
' end;'
'begin'
' a := 10;'
' b := f1(a);'
' ShowMessage(b);'
'end;')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
end
end
object TabSheet13: TTabSheet
Caption = #33258#20889#20195#30721
ImageIndex = 8
object Memo9: TMemo
Left = 0
Top = 0
Width = 385
Height = 301
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
end
end
end
object btnCompile: TButton
Left = 24
Top = 352
Width = 75
Height = 25
Caption = #32534#35793
TabOrder = 1
OnClick = btnCompileClick
end
object btnRun: TButton
Left = 104
Top = 352
Width = 75
Height = 25
Caption = #36816#34892
TabOrder = 2
OnClick = btnRunClick
end
object PageControl2: TPageControl
Left = 416
Top = 16
Width = 401
Height = 329
ActivePage = TabSheet9
TabOrder = 3
object TabSheet6: TTabSheet
Caption = #21464#37327
object edtVars: TMemo
Left = 0
Top = 0
Width = 393
Height = 301
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Lines.Strings = (
'Memo2')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
end
end
object TabSheet7: TTabSheet
Caption = #24120#37327
ImageIndex = 1
object edtConsts: TMemo
Left = 0
Top = 0
Width = 393
Height = 301
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Lines.Strings = (
'Memo4')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
end
end
object TabSheet8: TTabSheet
Caption = #26041#27861
ImageIndex = 2
object edtMethods: TMemo
Left = 0
Top = 0
Width = 393
Height = 301
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Lines.Strings = (
'edtMethods')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
end
end
object TabSheet9: TTabSheet
Caption = 'P-Code'
ImageIndex = 3
object edtPCodes: TMemo
Left = 0
Top = 0
Width = 393
Height = 301
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Lines.Strings = (
'Memo3')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
end
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -