Question

delphi保存文件

如果我要设定绝对保存路径，点击保存按钮就保存到指定的路径
程序该怎么写？高手帮帮忙！
我是想把Tlistbox的数据保存到d盘并保存为：.abc格式。

Answer 1

var
F :TFileStream;
Filepath : String;
SavePath :String;
begin
Filepath ='C:\dd.txt'; //假设这个dd.txt文件存在.
F := TFileStream.Create;
F.LoadFromFile(Filepath); //Filepath这个是现有的文件的路径及文件名.
F.SaveToFile(SavePath); //这个SavePath是要保存的文件的路径及文件名.例 SaveF.SaveToFile('C:\pp.txt');
F.Free;
end;

追问

看不懂啊！
没有savedialog.路径='c:\...'的吗？

追答

var
FileName :String;
F :TMemoryStream;
Filepath : String;
begin
Filepath :='C:\dd.txt'; //假设这个dd.txt文件存在.
F := TMemoryStream.Create;
F.LoadFromFile(Filepath);
if (savedialog1.Execute) then
F.SaveToFile(savedialog1.filename);
F.Free;
end;

Answer 2

//用TFileStream来读写文件
Delphi/Pascal code?
var
fs : TFileStream;
begin
fs := TFileStream.Create('文件路径', fmCreate);
end;

//写文件时
fs.Write(data, dataSize);

Answer 3

还有写DLL文件是保存文件名还是头文件名？如：需要调用Dax.DLL文件，应该保存习惯建立BIN、SCR、TMP、DOC.用来存放不同的类型文件。习惯关闭DELPHI的设置

Answer 4

ListBox1.Items.SaveToFile(d:\123.abc);

追问

不是啦，文件名（123）要根据保存对话框的（文件名）来！输入1则在D盘中保存为1.abc。

追答

难道你在程序界面加一个“保存对话框”也不会吗？

追问

不是，那个ListBox1.Items.SaveToFile(d:\‘123’.abc); 要怎么用程序来写。
那个ListBox1.Items.SaveToFile('d:\'+savedalog1.filename+'.abc');吗？

追答

我这里没有Delphi，以下的你自己测试一下吧
SaveDialog1.Filter := 'ABC文件|*.abc';
if SaveDialog1.Execute then begin
ListBox1.Items.SaveToFile(SaveDialog1.FileName);
end;

追问

又回到开头的问题了，一定要保存到D盘！

追答

搞这这么就现在终于把根本问题说出来了！
1.设置SaveDialog1的属性，让它打开时自动打开D:\这个路径
看一下有没有 InitialDir 属性，或者设置 FileName 属性也可以
2. SaveDialog1 关闭后检查一下路径是否是D盘的，不是的话让用户重新选择路径
3.不用 SaveDialog1 组件，直接让用户在 TEdit 上面填写文件名；