out.txt

来自「近日学习编译原理课程」· 文本 代码 · 共 89 行

LineNO  Type    Value
-----------------------------------
1       123     procedure
1       0       TForm1
1       0       cmdCreateClick
1       0       Sender
1       0       TObject
2       105     var
3       0       KeyInfo
3       0       KEY_INFO
4       116     begin
5       0       KeyInfo
5       0       KeyName
5       204     'key_name_age'
6       0       KeyInfo
6       0       KeyType
6       0       KEY_DUPLICATED
7       0       KeyInfo
7       0       KeyFieldCount
7       202     2
8       0       KeyInfo
8       0       KeyFieldNo
8       202     0
8       202     1
9       0       KeyInfo
9       0       KeyFieldCase
9       202     0
9       0       KEY_FIELD_CASE
10      0       KeyInfo
10      0       KeyFieldPos
10      202     0
10      202     0
11      0       KeyInfo
11      0       KeyFieldLen
11      202     0
11      202     32
12      0       KeyInfo
12      0       KeyFieldNo
12      202     1
12      202     2
14      100     if
14      0       mCreateField
14      204     'Number'
14      0       FIELD_INTEGER
14      202     1
14      113     then
15      100     if
15      0       mCreateField
15      204     'Name'
15      0       FIELD_STRING
15      202     32
15      202     1
15      113     then
16      100     if
16      0       mCreateField
16      204     'Age'
16      0       FIELD_SMALLINT
16      202     1
16      113     then
17      100     if
17      0       mCreateField
17      204     'Score'
17      0       FIELD_DOUBLE
17      202     1
17      113     then
18      100     if
18      0       mCreateKey
18      204     'Key_num'
18      0       KEY_UNDUPLICATED
18      202     0
18      202     1
18      113     then
19      100     if
19      0       mCreateKey
19      204     'Key_name'
19      0       KEY_DUPLICATED
19      202     1
19      202     1
19      113     then
21      100     if
21      0       mCreateDB
21      204     'test.sdb'
21      202     1
21      113     then
22      0       ShowMessage
22      204     'Create DB Sucessfully'
23      107     end
24      107     end