文件名称:Pascal词法分析程序
文件大小:12KB
文件格式:ZIP
更新时间:2016-01-30 15:37:49
Pasca l词法分析
Pascal词法分析程序 procedure TForm1.cmdCreateClick(Sender: TObject); var KeyInfo: KEY_INFO; begin KeyInfo.KeyName:='key_name_age'; KeyInfo.KeyType:=KEY_DUPLICATED; KeyInfo.KeyFieldCount:=2; KeyInfo.KeyFieldNo[0]:=1; KeyInfo.KeyFieldCase[0]:=KEY_FIELD_CASE; KeyInfo.KeyFieldPos[0]:=0; KeyInfo.KeyFieldLen[0]:=32; KeyInfo.KeyFieldNo[1]:=2; if mCreateField('Number',FIELD_INTEGER)=1 then if mCreateField('Name',FIELD_STRING,32)=1 then if mCreateField('Age',FIELD_SMALLINT)=1 then if mCreateField('Score',FIELD_DOUBLE)=1 then if mCreateKey('Key_num',KEY_UNDUPLICATED,0)=1 then if mCreateKey('Key_name',KEY_DUPLICATED,1)=1 then if mCreateDB('test.sdb')=1 then ShowMessage('Create DB Sucessfully'); end; end.
【文件预览】:
StdAfx.h
test.pas
pascal.dsp
Common.h
lex.cpp
pascal.dsw
pascal.opt
Common.cpp
pascal.cpp
StdAfx.cpp
lex.h