摘要： type studentRecord = record xh,xm:string[6]; yw,sx,wy:integer; end;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);var t:studentrecord; f: file of studentrecord;begin assignfile(f,'c:\temp\文件.dat'); //文件变量与外部文件建立联系 if fileexists('c:\temp\文件.dat') then reset(f) // 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject);//模拟在edit1中按下字幕a键begin PostMessage(Edit1.handle,wm_keydown,65,0);end;看完后，觉得这个模拟键挺不错的，结合可以完成一些自动的批量运算。procedure TForm1.Button2Click(Sender: TObject);begin edit1.SetFocus; edit1.Text:='hahah'; postmessage(self.activecontrol.Handle,wm_char,vk_retur 阅读全文