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; K