SaveDialog1 的问题 当用SaveDialog1保存文件时,只能输入文件名,一次保存一个文件, 我现在有很多文件需要保存到 一个目录下, 只要选定该目录,全部文件保存到该目录下, 该怎样做? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 DirectoryListBox1在哪个面板上? 不用DirectoryListBox1是否可以做到 我现在有很多文件需要保存到 一个目录下,那么你的这些文件名是怎么分配的?总不能叫一个名吧?还是要一个个输呀要是想编号(1,2,3……)那样的话就直接saveto就行了 楼主的意思是说,用saveas那样的对话框得到一个路径是吗?我也一直想找这个问题的答案。 还是要自己写代码搞定!!!!!!!savedialog.directorylistbox只是提供操作界面! uses FileCtrl;const SELDIRHELP = 1000;procedure TForm1.Button1Click(Sender: TObject);var Dir: string;begin Dir := 'C:\MYDIR'; if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then Label1.Caption := Dir;end; DirectoryListBox1在win3.1面板上,不过它要配合DriveComboBox一超使用 我的想法(我也是这样做的)自己写一个组件,从TreeView继承通过TsearchRec把目录列表列出来,供选择就行了,这样自由一些 为什么结果不相同,两个字符串? 这是个什么东西? delphi指针程序运行出错 关于字符串相加的一个简单问题 如何用Ado实现access数据库记录剪贴功能 求助 不提示错误,也没有保存在数据库中,何解????????????? 请问一个问题:很多软件(realplay,金山毒霸等)在“程序自启动”项目打勾后,即使在注册表里删除它,下次它也能自动启动,请问编程怎么 ?那位高手知道如何用delphi实现有类似Office2000的折叠菜单? 请高手教教我(^_^)!一定给分,绝对! 怎么清除treeview中的内容? 簡單問題送分:用什麼語句中途退出事件?
要是想编号(1,2,3……)那样的话就直接saveto就行了
我也一直想找这个问题的答案。
savedialog.directorylistbox只是提供操作界面!
SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := 'C:\MYDIR';
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Label1.Caption := Dir;
end;
自己写一个组件,从TreeView继承
通过TsearchRec把目录列表列出来,供选择就行了,这样自由一些