unit1.dfm

delphi编写的pascal解释器

object Form1: TForm1
  Left = 200
  Top = 93
  Width = 696
  Height = 480
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 32
    Top = 352
    Width = 75
    Height = 25
    Caption = 'Compile'
    TabOrder = 0
    OnClick = Button1Click
  end
  object PageControl1: TPageControl
    Left = 16
    Top = 16
    Width = 641
    Height = 329
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #20195#30721
      object Memo1: TMemo
        Left = 0
        Top = 0
        Width = 633
        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;'
          'begin'
          '  b := 0;'
          '  a := 1;'
          '  while a <= 100 do'
          '    begin'
          '    b := b + a;'
          '    a := a + 1;'
          '    end;'
          'end;')
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = #21464#37327
      ImageIndex = 1
      object Memo2: TMemo
        Left = 0
        Top = 0
        Width = 633
        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
        TabOrder = 0
      end
    end
    object TabSheet4: TTabSheet
      Caption = #24120#37327
      ImageIndex = 3
      object Memo4: TMemo
        Left = 0
        Top = 0
        Width = 633
        Height = 301
        Align = alClient
        Lines.Strings = (
          'Memo4')
        TabOrder = 0
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'P-Code'
      ImageIndex = 2
      object Memo3: TMemo
        Left = 0
        Top = 0
        Width = 633
        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
        TabOrder = 0
      end
    end
  end
  object Button2: TButton
    Left = 112
    Top = 352
    Width = 75
    Height = 25
    Caption = 'Run'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 192
    Top = 352
    Width = 75
    Height = 25
    Caption = 'Debug'
    TabOrder = 3
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 280
    Top = 360
    Width = 75
    Height = 25
    Caption = 'Button4'
    TabOrder = 4
    OnClick = Button4Click
  end
  object Memo5: TMemo
    Left = 392
    Top = 352
    Width = 241
    Height = 97
    Lines.Strings = (
      'Memo5')
    ScrollBars = ssBoth
    TabOrder = 5
  end
end