谁给我一个savefiledialog的用法例子？谢谢

Question

rt
文章，联接，程序都行 
：）

Answer 1

我只要保存当前memo上的text到指定目录啊，不是很复杂的啊。。

Answer 2

没人帮你吗？我来
procedure TForm1.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute  then
begin
 memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.SaveDialog1.Execute;
form1.Memo1.Lines.SaveToFile(form1.savedialog1.filename);
end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
saveDialog1.Filter :='Text files (*.txt)|*.TXT';if form1.SaveDialog1.Execute then
form1.Memo1.Lines.SaveToFile(form1.savedialog1.filename);
end;