rwhn.net
当前位置:首页 >> DElphi... 这个worD是什么字型啊?上下都没定义... >>

DElphi... 这个worD是什么字型啊?上下都没定义...

a、 整数类型: (通用类型:Integer-有符号;Cardinal-无符号) 具体: 有符号:Shortint,Smallint,Longint 无符号:Byte,Word,LongiWord b、字符类型: (通用类型:Char -与AnsiChar等同) 具体: AnsiChar :主要存放Ansi字符 WideChar:...

分太诱人了,写一个吧...... uses comobj; var word,document:olevariant; begin word:=createoleobject('word.application'); document:=word.documents; document.open('c:\1.doc'); word.ActiveDocument.pagesetup.topmargin:=111; //上边距t...

procedure TForm1.Button6Click(Sender: TObject); var a:Cardinal; //Cardinal是无符号32位整数 相当于word Buffer:array[1..2] of Byte; //声明数组 8位数组 c:Word; //定义一个c为word,方便数据测试用 16位 d:byte; //为了比对结果 begin a ...

你这个问题本身就有问题,您学了编程怎么连一点逻辑都没有。举个例子: 原文:很弱的问题。其中:'很'是1号字,'弱'是2号字,'的'是3号字,'问'是4号字,'题'是5号字。 加密后的密文:EAD12345。我问你,原文和密文如果连长度都不一样,你想保留...

354行是哪行啊...... 另外直接用AS赋值不好么,非要COPY.. 完了还strtoint,这个函数是把字符串转成数字的(string转成int),你还给个word型参数,没明白你要干嘛

var int: Integer; wd: Word; begin int := 123456; wd := word(int); // word是2字节,所以int超过2字节的部分会丢弃 ShowMessage(IntToStr(wd)); end;

用OLE来实现吧! wordapp := CreateOleObject('Word.Application'); wordapp.Application.Visible := true; worddoc := wordapp.Documents.open(FileName := path + 'word.doc', ReadOnly := False, AddToRecentFiles := False); 然后用WORD录下...

var Buf:TBytes; w:Word;begin w:=2; Buf:=RawToBytes(w);end;var Buf:Array[0..1] of Byte; w:Word;begin w:=2; Move(w,Buf[0],2);end;

这个就是调用WORD函数的问题。 花了点时间给你作了一个演示。 uses Word2000; procedure TWMITaskManagerMainForm.ButtonWordClick(Sender: TObject); var WordApplication: TWordApplication; WordDocument: TWordDocument; DocInx, oFileName,...

一. 定义word应用程序,文档对象,比如: wordApp: OleVariant; wordDoc: OleVariant; 二. 打开word文档 wordApp := CreateOleObject('Word.Application'); wordDoc := WordApp.Documents.Open(FileName:=filename, ReadOnly:= false, Revert:=T...

网站首页 | 网站地图
All rights reserved Powered by www.rwhn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com