unit2.dfm

delphi编写的pascal解释器

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 = TabSheet11
    TabIndex = 7
    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;'
          ''
          '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
  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 = TabSheet8
    TabIndex = 2
    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