Pascal词法分析程序 Pascal词法分析程序 procedure TForm1.cmdCreateClick(Sender: TObject); var KeyInfo: KEY_INFO; begin KeyInfo.KeyName:='key_name_age'; KeyInfo.KeyType:=KEY_DUPL