有谁知道如何使用Tsavedialog

Question

if SaveDialog1.Execute then begin
  你的文件对象.SaveToFile(SaveDialog1.FileName);
end;哈哈，不要告诉我你不知道文件对象。

Answer 1

procedure xxxclick(sender:TObject);
begin
  if SaveDialog1.Execute then
  begin
    showmessage(SaveDialog1.filename);
  end;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
IF SaveDialog1.Execute THEN
RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;

Answer 3

怎么？？？还要详细到多少？？
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;什么？看不懂？
我倒。