delphi强制类型转换 (double)怎么写?错误在哪里
vari: integer;t:double;arr1: array[1..5] of Double;arr2: array[1..5] of Double;constw: integer = 0;beginfor i := 1 to 5 dobeginarr1[i]:= arr2[i]/(w*0.6);arr2[i]:= 0;end;end;这样改就行了。
1、var是定义变量的,你w: integer = 0;这是定义常量的写法。
2、arr1[i]=arr2[i]/(double)(w*0.6);arr2[i]=0;这两句的赋值有问题,Delphi的复制要用:=。
3、既然w=0了 0*0.6还是0 所以不管arr2[i]的值是多少都会出错吧,不是除数不能为零么?
delphi中int转换成double的函数谁知道?
我将我的商用《旅行社管理系统》的 发团通知 部分奉献给您,望对您有所帮助。
procedure TFrmMain.N327Click(Sender: TObject); var FWord :Variant; FDoc :Variant; strSQL :string; begin //首先创造对象,如果出现异常就做出提示 try FWord := CreateOleObject('Word.Application'); //WOrd程序的执行是否可见,值为false时,程序在后台运行。
FWord.Visible := True; except messagebox(0,'创建word对象失败!','警告',MB_OK+MB_ICONINFORMATION); exit; end; strSQL :='select * From "B_T_Company_Infor"'; with dm.ClientDataSet_Temp do begin if Active then Active:=False; CommandText:=strSQL; Open; end; //现在打开的Word中,创建一个新的页面,然后在其中键入需要的内容 try FDOC :=FWord.Documents.Add; {对于Word的新页面} FWord.Selection.Font.Name :='宋体'; FWord.Selection.Font.Size :=20; FWord.Selection.Font.Bold :=2; FWord.Selection.paragraphs.Alignment := wdAlignParagraphCenter; FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[0].AsString); FWord.Selection.Typeparagraph;//换行 FWord.Selection.Typeparagraph; FWord.Selection.paragraphs.Alignment := wdAlignParagraphLeft; FWord.Selection.Font.Size :=12; FWord.Selection.Font.Bold :=0; FWord.Selection.TypeText(' 现将我社组团部的'); FWord.Selection.TypeText(' '); FWord.Selection.TypeText('团计划发出,各地请按下列行程做接待,并及早落实'+ '团队计划和选派优秀导游员。
各地代订住宿、火车票、机票务必安排好接待,日程'+ '如有变更,及时与下站接待社或本社联系,各地接团时请举【'+ dm.ClientDataSet_Temp.Fields[0].AsString+'】接站牌。
'); FWord.Selection.Typeparagraph;//换行 FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('请速回传真确认,谢谢合作!'); FWord.Selection.Typeparagraph;//换行 FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('人数:'); FWord.Selection.TypeText('人数:'); FWord.Selection.TypeText('国籍:'); FWord.Selection.TypeText('国籍:'); FWord.Selection.TypeText('等级:'); FWord.Selection.TypeText('等级:'); FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('这里是团队安排'); FWord.Selection.Typeparagraph;//换行 FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('TO: '); FWord.Selection.TypeText('12345678901234567890'); FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('TEL: '); FWord.Selection.TypeText('12345678901234567890'); FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('FAX: '); FWord.Selection.TypeText('12345678901234567890'); FWord.Selection.Typeparagraph;//换行 FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('______________________________________________'); FWord.Selection.Typeparagraph;//换行 FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('FROM: '); FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[0].AsString); FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('TEL: '); FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[3].AsString); FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('FAX: '); FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[4].AsString); FWord.Selection.Typeparagraph;//换行 Except on e: Exception do Messagebox(0,Pchar(e.Message),'警告',MB_OK+MB_ICONINFORMATION); end; //保存文档 FWord.Caption := '组团计划保存在: '+ExtractFilePath(application.ExeName)+'Reports\GroupPlan.doc'; FDOC.SaveAS(ExtractFilePath(application.ExeName)+'Reports\GroupPlan.doc'); if messagebox(0,'组团计划已经保存成功!'+chr(13)+chr(13)+ '单击【确定】退出Word,返回到程序中!','您确信要退出Word吗?', MB_YESNO+MB_ICONINFORMATION+MB_DEFBUTTON2)=IDYES then begin FWord.Quit; FWord := Unassigned; end; end; ----------------------------- Delphi与Word之间的融合技术(1) 一、VBA代码含义 Microsoft Word是一个集成化环境,是美国微软公司的字处理系统,但是它决不仅仅是一个字处理系统,它集成了Microsoft Visual Basic,可以通过编程来实现对Word功能的扩展。
Microsoft Visual Basic在word中的代码即Word的宏,通过编写Word宏,可实现一些文档处理的自动化,如实现文档的自动备份、存盘等,可扩展Word文档的功能,因此,能够充分利用Word的特性,甚至使Word成为自己软件的一部分。
Word的宏既有有利的一部分,因为它能够帮助我们实现文档的自动化,但是Word的宏也不是纯粹的有利,有时它可能危害我们的文档、计算机系统甚 至网络,从最开始的Taiwan NO1宏病毒到现在的...
delphi 如何将WORD转换为PDF
使用vba来指定保存的文件格式为pdf,当然前提必须已安装MS Office的PDF输出插件(默认应该有)procedure TForm1.btn1Click(Sender: TObject);varwdo,wdoc,wdocs : OleVariant;beginwdo := CreateOleObject('Word.Application');wdocs := wdo.Documents;wdoc := wdocs.Open('d:\test.docx');wdoc.ExportAsFixedFormat(OutputFileName:='d:\test.pdf', ExportFormat:=17);//查word的宏帮助{ OpenAfterExport:='True', OptimizeFor:='wdExportOptimizeForPrint', Range:='wdExportAllDocument', From:=1, To:=1, Item:='wdExportDocumentContent',IncludeDocProps:='True', KeepIRM:='True', CreateBookmarks:='wdExportCreateNoBookmarks', DocStructureTags:='True', BitmapMissingFonts:='True', UseISO19005_1:='False'); }end;
请问在Delphi程序中,如何将所有变量生成到一个Word文档,?
var Template,NewTemplate,ItemIndex:OleVariant;begin try try wordapplication1.Connect; except showmessage('word not install'); abort; end; WordApplication1.Visible := true; Template := EmptyParam; NewTemplate := False; ItemIndex := 1; WordApplication1.Documents.Add(Template, NewTemplate); WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex)); WordDocument1.Range.InsertAfter('sssssssssssssssss'+#13); except on E: Exception do begin ShowMessage(E.Message); WordApplication1.Disconnect; end; end; 查看原帖>>
如何将Delphi报表的内容导出到WORD中(报表
你没有说具体报表,只能泛泛而谈。
问得不明确,想认真回答也做不到。
一般而言,报表工具都有导出功能,可以导出为常见的文档格式,有些直接支持xls和word之类,有些可以导出为HTML或RTF之类,这是商品化报表工具的必备功能。
你可以直接将之导出为通用文档格式,然后在Delphi中调用word的读取功能,word的识别功能强大,一般就搞定了。
以fastreport为例,它不直接支持word,但支持excel,所以可以先导出为excel,再用excel另存为HTML,再用word打开HTML即可。
// 导出到 Excel 文档frxXLSExport1.ShowDialog := false;frxXLSExport1.FileName:= 'Filename1.xls';frxReport1.PrepareReport(true);frxReport1.Export(frxXLSExport1);至于delphi中直接操作excel和word的方法,网上有不少例子,自己找一下。
转载请注明出处51数据库 » delphi double转word