00问答网
所有问题
当前搜索:
delphi如何关闭word文档
delphi
打印的时候
怎样
调整字体大小
答:
分太诱人了,写一个吧...uses comobj;var
word
,document:olevariant;begin word:=createoleobject('word.application');document:=word.documents;document.open('c:\1.doc');word.ActiveDocument.pagesetup.topmargin:=111; //上边距topmargin 下bottommargin 左leftmargin 右 right...word.selection...
delphi中如何
将
Word
格式写进eichedit控件
答:
richedit只支持rtf
文档
,如果你想加载更新版本的doc或docx文档的话,只能使用容器包含的方式试试了
delphi怎么
实现从网页中提取指定表格内容到
word
中?
答:
可以先strSource:=IDHTTP1.Get('URL');获取源码 然后提取内容用OLE写入到
word
delphi中怎样
把显示在dbgrid中的数据导出?
答:
给你一个导出代码 procedure TForm1.ExpExcelFileByStream(Src_DBG: TDBGrid; FileName: String);var i: integer;Col, row:
word
;ABookMark: TBookMark;aFileStream: TFileStream;procedure incColRow;begin if Col = Src_DBG.Columns.Count - 1 then begin Inc(Row);Col :=0;end else Inc(...
在
DELPHI中如何
截取身份证中的出生年月日
答:
var Code, Birthday: string;begin code := '212343194103121234';//或是15位的,下面可以处理一下 if lengh(code) = 15 then birthday := copy(code, 7, 6)else birthday := copy(code, 7, 8);showmessage(birthday);end;
Delphi中
int
如何
转换为
word
型数据?
答:
var int: Integer;wd:
Word
;begin int := 123456;wd :=
word
(int); // word是2字节,所以int超过2字节的部分会丢弃 ShowMessage(IntToStr(wd));end;
Delphi 如何
实现带格式文本输入到
word 文件
中
答:
好象没有与VB类似的语句,可以用TStringList 类型实现:先用LoadFromFile方法加载文本数据,然后可以逐行读取,一次读一行.List:StringList;List:=TStringList.Create;List.LoadFromFile("test.txt");For i:=0 to List.Count-1 do Begin S:=List[i];...End List.Free;
delphi 如何
让TDBChart读取临时表
答:
在TDBCHART中添加你要的图形形状Series,然后把数据添加在Series中。
delphi
标题文字渐变
答:
在窗口中添加一个时间控件Timer1,设置它的enable属性为false 并添加一个Timer1的Timer事件,具体代码如下:implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);var i:
word
;dy,y:real;begin dy:=clientheight/256;y:=0;for i:=255 downto 0 do begin canvas.brush.color...
请问各位大侠,在
delphi中如何
edit1中输入商品编号在edit2中自动显示商 ...
答:
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key:
Word
;Shift: TShiftState);begin with adoquery1 do begin close;sql.Clear;sql.Add('select name from Table1 where code like :a');Parameters.ParamByName('a').Value:='%'+Trim(Edit1.Text)+'%';open;if Recordcount>0 then ...
棣栭〉
<涓婁竴椤
5
6
7
8
10
11
12
9
13
14
涓嬩竴椤
灏鹃〉
其他人还搜