有谁知道如何使用Tsavedialog if SaveDialog1.Execute then begin 你的文件对象.SaveToFile(SaveDialog1.FileName);end;哈哈,不要告诉我你不知道文件对象。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure xxxclick(sender:TObject);begin if SaveDialog1.Execute then begin showmessage(SaveDialog1.filename); end;end; procedure TForm1.Button1Click(Sender: TObject);beginIF SaveDialog1.Execute THENRichEdit1.Lines.SaveToFile(SaveDialog1.FileName);end; 怎么???还要详细到多少??var F: File;beginRewrite(f, SaveDialog1.FileName);write(f, '内容放这儿');//不断的的Write//最后Close(f);end;什么??还不够详细?#$#%@$#@$@#,用流成了吧?var fs: TFileStream;begin fs := TFileStream.Create; try //给fs赋上内容 fs.SaveToFile(SaveDialog1.FileName); finally fs.Free; end;end;什么?看不懂?我倒。 delphi与asm交互获取字符串的问题 关于aqoquery 突然發現自己連聊天的本領也退步了 DataSet不在插入/删除状态?! DELPHI为什么会自动退出? 电子印章 初到贵地,请给个建议。 求救啊!快啊! 有谁知道F1BOOK的一些格式问题???? 怎么解决播放midi 和wav 的冲突? 有没有专门提供Delphi演示例子(含源代码的Demo)的网站? 关于打印问题。高手请进?
begin
if SaveDialog1.Execute then
begin
showmessage(SaveDialog1.filename);
end;
end;
begin
IF SaveDialog1.Execute THEN
RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;
var
F: File;
begin
Rewrite(f, SaveDialog1.FileName);
write(f, '内容放这儿');
//不断的的Write//最后
Close(f);
end;
什么??还不够详细?#$#%@$#@$@#,用流成了吧?var
fs: TFileStream;
begin
fs := TFileStream.Create;
try
//给fs赋上内容
fs.SaveToFile(SaveDialog1.FileName);
finally
fs.Free;
end;
end;什么?看不懂?
我倒。