求助：我的 SaveDialog1 ，我保存了，为什么没有保存成功呢？ ( 积分: 10 )

  • 主题发起人 主题发起人 lsh998
  • 开始时间 开始时间
L

lsh998

Unregistered / Unconfirmed
GUEST, unregistred user!
请教：
procedure TForm1.Button2Click(Sender: TObject);
var
ss:string;
begin
ss:='1234554643';
if SaveDialog1.Execute then
begin
SaveDialog1.FileName:=ss;
end;
end;

我想把 字符串 '123456' 保存为一个文件，文件名在 SaveDialog1 对话框输入
我明明是保存在桌面 22.txt ,可是桌面怎么没有这个文件呢？

谢谢！
 
你的这个肯定不行撒，你保存的文件名是ss啊，而且你的字符串怎么保存进文件哦？
完全是两回事啊，对于文件来说，首先，你要创建一个文本文件，然后把这个字符串往这个文件中写，最后来保存。
 
你知道savedialog是用来做什么的吗？先看看看帮助啊
 
procedure TForm1.Button2Click(Sender: TObject);
var
ss:string;
begin
// ss:='1234554643';
if SaveDialog1.Execute then
begin
SaveDialog1.FileName 就是你保存的路径和文件名呀;
end;
end;
 
干脆给你个勤快点的解答吧
懒的开delphi了,记事本给你写一下
var
ss:string;
List: TStrings;
begin
List := TStringList.Create(nil);
ss:='1234554643';
List.Text := ss;
if SaveDialog1.Execute then
begin
//要这么写,明白吗
List.SaveToFile(SaveDialog1.FileName);
end;
List.Free;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
ss:string;
memo: Tmemo;
begin
ss:='22.txt';
SaveDialog1.FileName:=ss;
if SaveDialog1.Execute then
begin
memo := Tmemo.create;
try
memo.lines.add('1234554643');
memo.lines.savetofile(SaveDialog1.FileName);
finally
memo.free;
end;
end;
end;
 
呵呵，楼上的和楼上的楼上都正确。
 
您必须登录或注册才可回复。

Similar threads

S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
自动保存窗口状态的控件
回复
0
查看
950
import
I
I
TreeView上的节点连同其关联的对象的保存
回复
0
查看
598
import
I
I
如何把正在浏览的网页用图片的形式保存下来
回复
0
查看
572
import
I
后退
顶部