unit1.dfm

PL/0语言是Pascal语言的一个子集

object Form1: TForm1
  Left = 213
  Top = 165
  Width = 785
  Height = 547
  AutoSize = True
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'PL/0'#32534#35793#31243#24207' '#21046#20316#32773' '#36719#20214'2'#29677'16'#21495' '#26446#24314#24247' Copyright2006 '#35843#35797#26102#38388':5'#26376'26'#26085'--6'#26376'3'#26085' '
  Color = clBtnFace
  UseDockManager = True
  DefaultMonitor = dmMainForm
  DockSite = True
  DragMode = dmAutomatic
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 516
    Top = 0
    Width = 133
    Height = 29
    AutoSize = False
    Caption = #28304#31243#24207#21517
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 520
    Top = 208
    Width = 192
    Height = 20
    Caption = '**'#35831#20462#25913'PL/0'#28304#31243#24207'**.....'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 640
    Top = 8
    Width = 126
    Height = 13
    Caption = #26368#20339#20998#36776#29575#26159'800'#215'600....'
  end
  object ButtonRun: TButton
    Left = 480
    Top = 168
    Width = 81
    Height = 33
    Cursor = crHandPoint
    Caption = #28436#31034'(&R)'
    Font.Charset = OEM_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = ButtonRunClick
  end
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 461
    Height = 513
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    Lines.Strings = (
      '                         ***** PL/0 '#32534#35793#31243#24207' Demo *****')
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object EditName: TEdit
    Left = 520
    Top = 26
    Width = 145
    Height = 30
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Courier New'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    Text = 'E01'
  end
  object ListSwitch: TRadioGroup
    Left = 520
    Top = 56
    Width = 209
    Height = 105
    Caption = #30446#26631#20195#30721
    DragKind = dkDock
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -27
    Font.Name = #38582#20070
    Font.Style = []
    ItemIndex = 0
    Items.Strings = (
      #26174#31034
      #19981#26174#31034)
    ParentFont = False
    TabOrder = 3
  end
  object ButtonClear: TButton
    Left = 576
    Top = 168
    Width = 81
    Height = 33
    Cursor = crHandPoint
    Caption = #28165#31354'(&C)'
    Font.Charset = OEM_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = ButtonClearClick
  end
  object ButtonLoad: TButton
    Left = 664
    Top = 24
    Width = 65
    Height = 33
    Cursor = crHandPoint
    Caption = #27983#35272'(&B)...'
    DragCursor = crDefault
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = ButtonLoadClick
  end
  object Memo2: TMemo
    Left = 464
    Top = 232
    Width = 313
    Height = 281
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Lines.Strings = (
      '')
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 6
    OnChange = Memo2Change
  end
  object ButtonSave: TButton
    Left = 672
    Top = 168
    Width = 81
    Height = 33
    Cursor = crHandPoint
    Caption = #20445#23384'(&S)'
    Font.Charset = OEM_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = ButtonSaveClick
  end
  object OpenDialog1: TOpenDialog
    FileName = '.\E01.PL0'
    Filter = 'PL0'#28304#25991#20214'(*.pl0)|*.pl0|'#26085#24535#25991#20214'(*.cod)|*.cod|'#25152#26377#25991#20214'(*.*)|*.*'
    Left = 664
    Top = 136
  end
  object SaveDialog1: TSaveDialog
    FileName = '.\E01.PL0'
    Filter = 'PL0'#28304#25991#20214'(*.pl0)|*.pl0|'#25152#26377#25991#20214'(*.*)|*.*'
    Left = 744
    Top = 160
  end
end