savedialog怎么用的？

Question

if (savedialog.Execute) and (savedialog.FileName <> '') then
  begin
   自定义写入文件函数
  //  puttofile(savedialog.FileName, ID);
  end;

Answer 1

if (savedialog.Execute) and (savedialog.FileName <> '') then
  begin
   自定义写入文件函数
  //  puttofile(savedialog.FileName, ID);
  end;

Answer 2

if (savedialog.Execute) and (savedialog.FileName <> '') then
  begin
   自定义写入文件函数
  //  puttofile(savedialog.FileName, ID);
  end;

Answer 3

if (SaveDialog.Execute) then
  Memo1.Lines.SaveToFile(SaveDialog.FileName);

Answer 4

if (savedialog.Execute) and (savedialog.FileName <> '') then
  begin
   自定义写入文件函数
  //  puttofile(savedialog.FileName, ID);
  end;