逐梦论坛 » 学习资料 » ~~~

rzumi 发表于 2006-7-11 18:56

~~~

抽题源代码清单部分：
str:=edit5.text;
  i:=strtoint(str);
  str:=edit2.text;
  if str<>'' then
  begin
  sfilename := extractfilepath(application.exename) + '标题3';
  sfilename := sfilename + '.' +'doc';
  opendialog1.filename:=sfilename;
  ofilename:=opendialog1.filename;
  wordapplication1.documents.open(ofilename,oconfirmconversions,
  oreadonly,oaddtorecentfiles,opassworddocument,opasswordtemplate,
  orevert,owritepassworddocument,owritepasswordtemplate,oformat,oencoding,ovisible);
  itemindex := 1;
  worddocument1.connectto(wordapplication1.documents.item(itemindex));
  wordapplication1.options.checkspellingasyoutype := false;
  wordapplication1.options.checkgrammarasyoutype := false;
  worddocument1.range.insertafter(edit2.text+'分');
  worddocument1.range.copy;
  worddocument2.sentences.last.paste;
  worddocument2.range.insertafter(' '+#13);
  worddocument1.close(savechanges,originalformat,routedocument);
  j:=strtoint(str);
  score1:=(j*i) div 100;
  score:=0;
  j:=0;
  k:=1;
  dmolecontainer.scds1.active:=false;

查看完整版本: ~~~