savedialog的简单问题 将c:\123.txt 另存为别的文件,应该将‘c:\123.txt'赋值给savedialog的哪个属性啊? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 if (SaveDialog.Execute) and (SaveDialog.FileName <> '') then begin copyfile(pchar(path + '123.txt'),pchar //////path --123.txt的路径(SaveDialog.FileName+'.txt'),false); end; initdir:='c:\';filename:='123.txt'; procedure TForm1.Button1Click(Sender: TObject);begin if (SaveDialog.Execute) and (SaveDialog.FileName <> '') then begin copyfile('c:\123.txt',pchar(SaveDialog.FileName+'.txt'),false); end;end; MI_ICONEVENT= WM_USER+ 1;这句在做托盘图标程序的定义有什么作用? 大伙看看吧,这个DXDBTreeView! delphi怎么显示UDP收到的字节呀? 怎么用sendmessage发一个最大化消息? 既有分得,又有好处,赶快进来啊! delphi 在游戏里如何实现一个鼠标拖动 使用ADO的数据库如何加密啊? 我用adotable看到的sql server一个表中的纪录不是全部的,怎样解决 三层初级问题 redhat7.1下安装kylix 关于TREEVIEW的问题 一运行就出现cannot open file Project1.dpr错误
begin
copyfile(pchar(path + '123.txt'),pchar //////path --123.txt的路径(SaveDialog.FileName+'.txt'),false);
end;
filename:='123.txt';
begin
if (SaveDialog.Execute) and (SaveDialog.FileName <> '') then
begin copyfile('c:\123.txt',pchar(SaveDialog.FileName+'.txt'),false);
end;
end;