Ignore:
Timestamp:
Feb 9, 2012, 2:51:41 PM (13 years ago)
Author:
chronos
Message:
  • Added: BrainFuck code examples.
  • Added: View of data memory in interpretter.
  • Added: Show execution information in interpretter form.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/UInterpreterForm.lfm

    r2 r5  
    11object InterpreterForm: TInterpreterForm
    2   Left = 305
    3   Height = 450
    4   Top = 124
    5   Width = 614
     2  Left = 242
     3  Height = 509
     4  Top = 116
     5  Width = 762
    66  Caption = 'Runtime'
    7   ClientHeight = 450
    8   ClientWidth = 614
     7  ClientHeight = 509
     8  ClientWidth = 762
    99  LCLVersion = '0.9.31'
    10   object Panel1: TPanel
     10  object Panel3: TPanel
    1111    Left = 0
    12     Height = 234
     12    Height = 509
    1313    Top = 0
    14     Width = 614
    15     Align = alTop
     14    Width = 323
     15    Align = alLeft
    1616    BevelOuter = bvNone
    17     ClientHeight = 234
    18     ClientWidth = 614
     17    ClientHeight = 509
     18    ClientWidth = 323
    1919    TabOrder = 0
    20     object MemoInput: TMemo
     20    object Panel1: TPanel
     21      Left = 0
     22      Height = 242
     23      Top = 0
     24      Width = 323
     25      Align = alTop
     26      BevelOuter = bvNone
     27      ClientHeight = 242
     28      ClientWidth = 323
     29      TabOrder = 0
     30      object MemoInput: TMemo
     31        Left = 8
     32        Height = 210
     33        Top = 24
     34        Width = 309
     35        Anchors = [akTop, akLeft, akRight, akBottom]
     36        TabOrder = 0
     37      end
     38      object Label1: TLabel
     39        Left = 8
     40        Height = 14
     41        Top = 8
     42        Width = 31
     43        Caption = 'Input:'
     44        ParentColor = False
     45      end
     46    end
     47    object Splitter1: TSplitter
     48      Cursor = crVSplit
     49      Left = 0
     50      Height = 5
     51      Top = 242
     52      Width = 323
     53      Align = alTop
     54      ResizeAnchor = akTop
     55    end
     56    object Panel2: TPanel
     57      Left = 0
     58      Height = 262
     59      Top = 247
     60      Width = 323
     61      Align = alClient
     62      BevelOuter = bvNone
     63      ClientHeight = 262
     64      ClientWidth = 323
     65      TabOrder = 2
     66      object Label2: TLabel
     67        Left = 8
     68        Height = 14
     69        Top = 6
     70        Width = 39
     71        Caption = 'Output:'
     72        ParentColor = False
     73      end
     74      object MemoOutput: TMemo
     75        Left = 8
     76        Height = 237
     77        Top = 22
     78        Width = 309
     79        Anchors = [akTop, akLeft, akRight, akBottom]
     80        TabOrder = 0
     81      end
     82    end
     83  end
     84  object Splitter2: TSplitter
     85    Left = 323
     86    Height = 509
     87    Top = 0
     88    Width = 5
     89  end
     90  object Panel4: TPanel
     91    Left = 328
     92    Height = 509
     93    Top = 0
     94    Width = 434
     95    Align = alClient
     96    BevelOuter = bvNone
     97    ClientHeight = 509
     98    ClientWidth = 434
     99    TabOrder = 2
     100    object Label3: TLabel
     101      Left = 0
     102      Height = 14
     103      Top = 8
     104      Width = 82
     105      Caption = 'Program pointer:'
     106      ParentColor = False
     107    end
     108    object LabelProgramPointer: TLabel
     109      Left = 112
     110      Height = 14
     111      Top = 8
     112      Width = 10
     113      Caption = '   '
     114      ParentColor = False
     115    end
     116    object Label5: TLabel
     117      Left = 1
     118      Height = 14
     119      Top = 24
     120      Width = 80
     121      Caption = 'Memory pointer:'
     122      ParentColor = False
     123    end
     124    object LabelMemoryPointer: TLabel
     125      Left = 112
     126      Height = 14
     127      Top = 24
     128      Width = 10
     129      Caption = '   '
     130      ParentColor = False
     131    end
     132    object Label4: TLabel
     133      Left = 1
     134      Height = 14
     135      Top = 42
     136      Width = 67
     137      Caption = 'Step counter:'
     138      ParentColor = False
     139    end
     140    object LabelStepCounter: TLabel
     141      Left = 112
     142      Height = 14
     143      Top = 42
     144      Width = 10
     145      Caption = '   '
     146      ParentColor = False
     147    end
     148    object ListViewMemory: TListView
    21149      Left = 8
    22       Height = 202
    23       Top = 24
    24       Width = 600
     150      Height = 384
     151      Top = 120
     152      Width = 422
    25153      Anchors = [akTop, akLeft, akRight, akBottom]
     154      Columns = <     
     155        item
     156          Caption = 'Address'
     157          Width = 80
     158        end     
     159        item
     160          Caption = 'Data'
     161          Width = 300
     162        end>
     163      Font.Height = -11
     164      Font.Name = 'Courier New'
     165      OwnerData = True
     166      ParentFont = False
     167      ReadOnly = True
    26168      TabOrder = 0
     169      ViewStyle = vsReport
     170      OnData = ListViewMemoryData
    27171    end
    28     object Label1: TLabel
     172    object Label6: TLabel
    29173      Left = 8
    30174      Height = 14
    31       Top = 8
    32       Width = 31
    33       Caption = 'Input:'
     175      Top = 104
     176      Width = 43
     177      Caption = 'Memory:'
    34178      ParentColor = False
    35179    end
    36180  end
    37   object Panel2: TPanel
    38     Left = 0
    39     Height = 216
    40     Top = 234
    41     Width = 614
    42     Align = alClient
    43     BevelOuter = bvNone
    44     ClientHeight = 216
    45     ClientWidth = 614
    46     TabOrder = 1
    47     object Label2: TLabel
    48       Left = 8
    49       Height = 14
    50       Top = 6
    51       Width = 39
    52       Caption = 'Output:'
    53       ParentColor = False
    54     end
    55     object MemoOutput: TMemo
    56       Left = 8
    57       Height = 191
    58       Top = 22
    59       Width = 600
    60       Anchors = [akTop, akLeft, akRight, akBottom]
    61       TabOrder = 0
    62     end
     181  object Timer1: TTimer
     182    Interval = 500
     183    OnTimer = Timer1Timer
     184    left = 495
     185    top = 61
    63186  end
    64187end
Note: See TracChangeset for help on using the changeset viewer.