1.所需的三个控件: ChooseWA: TWordApplication; ChooseWD: TWordDocument; ChooseWF: TWordFont; 2.检查计算机是否安装了WORD try ChooseWA.Connect; except MessageBox(handle,'无法链接,请确认电脑上是否安装Word XP/2003及以上版本','连接出错', MB_Ok or MB_ICONERROR); Abort; end; 3.关闭WORD拼写检查 //因为Word进行拼写检查需要很多时间,所以首先关闭检查 ChooseWA.Options.CheckSpellingAsYouType := False; ChooseWA.Options.CheckGrammarAsYouType := False; 4.新建一个文档并设置文档的标题 var NewDocument: _Document; ItemIndex: OleVariant; ItemIndex := 1; NewDocument := ChooseWA.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam); ChooseWD.ConnectTo(NewDocument); ChooseWD.Windows.Item(ItemIndex).Caption := '我新建的第一个文档';//此文档的第一个窗口的标题,试卷 名称 5.写入数据 ChooseWD.Range.InsertAfter('第一行数据'+#13);//#13代表换行 6.设置字体格式 procedure SetFont(aBold,aItalic,aShadow,aSize:integer); begin ChooseWF.ConnectTo(ChooseWD.Sentences.Get_Last.Font); ChooseWF.Name := '宋体'; ChooseWF.Bold := aBold; ChooseWF.Italic := aItalic; ChooseWF.Shadow := aShadow; ChooseWF.Size := aSize; end; 如:SetFont(1,0,0,22);//设置字体为22号 7.向WORD中写入表格 (1)插入表格: ChooseWD.Tables.Add(ChooseWD.Words.Last, RowNum, ColNum,EmptyParam,EmptyParam);//RowNum为行数, ColNum为列数 (2)插入数据: ChooseWD.Tables.Item(1).Cell(1,1).Range.Text := '第一行第一列'; ChooseWD.Tables.Item(1).Cell(2,1).Range.Text := '第二行第一列'; 8.向WORD写入图片 var Img: TImage; MyFormat: Word; AData: Cardinal; APalette: HPALETTE; Img.Picture.LoadFromFile('文件路径');//从文件夹中导入图片至控件 Img.Picture.SaveToClipboardFormat(MyFormat,AData,APalette);//将图片转存到剪贴板中 Clipboard.SetAsHandle(MyFormat,AData);//将剪贴板中的图片复制出来,注意添加Clipbrd单元 ChooseWD.Sentences.Last.Paste;//在WORD中粘贴图片 9.在界面中显示WORD文档 ChooseWA.Visible:=true; 10.断开与WORD的链接 ChooseWA.Disconnect; ChooseWD.Disconnect; Chart1.SaveToBitmapFile(‘文件名.bmp’);
2024-01-17 22:00:13 2KB delphi word
1
在这项研究中,提出了一种新颖的正态曲率变化模型,该模型包括一个基于图像表面的正曲率先验信息的高阶正则化器,用于图像恢复。 此外,作者得出了建议的法向曲率诱导的高阶正则化函数的等效公式。 然后,他们使用著名的乘法器交替方向法设计了一种有效的算法来求解所提出的模型。 最后,他们通过将其与著名的快速总变异(TV)方法,分数阶TV方法和Hessian-核-范数正则化方法进行比较,评估了该方法在自然图像和生物医学细胞图像上的性能。 具体而言,该方法在峰值信噪比,收敛速度和恢复质量方面可以获得更好,更平衡的结果。
2024-01-15 21:01:39 3.74MB 研究论文
1
针对不敏卡尔曼滤波算法在单站无源定位的应用中受初始状态误差和可观测条件等影响易产生滤波发散、收敛精度低、收敛速度慢的问题.提出一种双向平方根不敏卡尔曼滤波的无源定位算法.充分利用了平方根不敏卡尔曼滤波算法数值稳定性高的优点,采用后向平滑算法逐次修正状态估计值,从而提高了定位算法对初始状态的鲁棒性.试验结果验证了该算法的有效性.
1
在本文中,研究了在高密度和高密度介质中各向异性等离子体中的夸克离解。 为此,通过Nikiforov-Uvarov(NU)方法解析各向异性介质中势的实部,从而求解了多维Schrödinger方程。 计算结合能和离解温度。 与各向同性介质相比,在存在各向异性介质的情况下,夸克的结合能得到增强。 目前的结果表明解离温度随with和and的1S状态的各向异性参数的增加而增加。 我们观察到低重化学势在各向同性和各向异性介质中均具有较小的影响。 与其他先前的理论著作进行了比较。
2024-01-12 16:03:02 1.67MB Open Access
1
在本文中,我们将$$ Z_c ^ \ pm(3900)$$ Zc±(3900)分配为双夸克-反双夸克型轴向矢量四夸克状态,并通过QCD和规则在外部弱电磁场中研究其磁矩, 进行操作员产品扩展,直到尺寸为8的真空冷凝物。我们特别注意将强子面与相关函数的QCD面进行匹配以获得固体对偶性,该例程可用于研究奇特的其他电磁性质 粒子。
2024-01-12 15:56:52 622KB Open Access
1
在微观衰减机制和基于准势方法的相对论夸克模型的框架内,考虑了矢量(S13)介子对伪标量(S01)介子的强衰减。 夸克-反夸克势以前被用于成功描述介子谱和电弱衰变,被用作qq对生成的来源。 全面考虑了衰变矩阵元素的相对论结构,相对论贡献和介子波函数的增强。 轻,重轻介子和重夸克尼亚的强衰变的计算速率与可用的实验数据非常吻合。
2024-01-12 15:38:08 303KB Open Access
1
我们揭示了短期各向异性通货膨胀的普遍性。 作为演示,我们使用指数型量表动力学函数研究通货膨胀,该函数在从高维基础理论进行降维获得的模型中无处不在。 事实证明,各向异性通货膨胀普遍发生在常规通货膨胀的后期。 值得注意的是,我们发现在10 MHz至100 MHz的高频频带中会大量产生峰值重力大约在10至26度至10至27度之间的原始重力波。 如果将来能够检测到这种引力波,我们将能够探究更高维度的基础理论。
2024-01-12 13:34:59 721KB Open Access
1
早期宇宙的相变很容易产生可观察到的随机引力波背景。 我们表明,这样的背景必然包含与光子的宇宙微波背景(CMB)类似的各向异性,并且这些也可能在拟议的重力波探测器的范围之内。 引力波各向异性内的相关性以及它们与CMB的互相关性可以为原始波动的根本机制(例如多场通货膨胀)提供新见解,并揭示了早期粒子物理的非标准“隐藏扇区”的存在。
2024-01-12 13:32:17 295KB Open Access
1
冻结井壁作为井筒的支护结构,受力与变形一直是建井研究中的重点。由于目前研究成果大多集中在冲积层条件下分析井壁的受力情况,软岩条件下的研究成果很少。基于此,通过现场实测外壁环向应力,总结出其承受径向荷载值,从而得到径向荷载变化可以分为3个阶段。同时,利用回归分析得出径向荷载值与时间的关系可以用一元二次方程来描述。
2024-01-12 08:54:16 219KB 环向应力 径向荷载
1
基于流变应力恢复地应力测量方法,研制了一种单线圈电流型振弦式三向压力传感器。通过单向加载标定试验和三向加载标定试验,研究了传感器的重复性、线性度及压力传感面之间的自干扰特性。
1