请逐条解释一下这些语句 :) 谢谢

procedureTForm1.Image3Click( );varWbeginifADOData['File1']=''thenexit;Image3.Cursor:=crAppStart;TryWordApp:=GetActiveOleObject('Word.Application');exceptWordApp:=CreateOleObject('Word.Application');end;TryWordApp.Documents.Save;WordApp.Documents.Close;exceptend;WordStream:=TADOBlobStream.Create(TBlobField(ADOData.Fields[5]),bmRead);WordStream.Position:=0;TBlobField(ADOData.Fields[5]).SaveToStream(WordStream);WordStream.SaveToFile(CurDir+'\File1.doc');WordApp.Documents.Open(CurDir+'\File1.doc');WordApp.Caption:='专利附件';WordApp.Visible:=true;Edit4.Text:=CurDir+'\File1.doc';Image3.Cursor:=crDefault;end;procedureTForm1.Button1Click( );varWbeginifApplication.MessageBox('确认添加记录吗?','添加记录',MB_OKCANCEL)=IDCANCELthenexit;ifnotDataCheckOKthenexit;TryWordApp.Documents.Save;WordApp.Documents.Close;WordApp.Visible:=false;exceptend;ADOData.Insert;ADOData['PatentName']:=Edit1.Text;ADOData['PatentType']:=ComboBox1.Text;ADOData['Developer']:=Edit2.Text;ADOData['Mail']:=Edit3.Text;if(Edit4.Text<>'')and(Edit4.Text<>'(Word文档)')thenbeginWordStream:=TADOBlobStream.Create(TBlobField(ADOData.Fields[5]),bmWrite);WordStream.LoadFromFile(Edit4.Text);WordStream.Position:=0;TBlobField(ADOData.Fields[5]).LoadFromStream(WordStream);WordStream.Free;end;ADOData.Post;ADOData.Requery;ShowData;end;

热心网友

我也希望能看到很基础的东西，虽然书上讲得很多，但希望很短而精。

热心网友

procedureTForm1.Image3Click( );//如果点击了TForm1表单上的Image3控件的话....end;//结束如果你连这么基本的都不知道的话,建议你买本书自己好好学习,全是很基础的东东。