- 博客(0)
- 资源 (2)
- 收藏
- 关注
Pascal词法分析程序
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.
2013-01-09
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人