求一个OnClick事件的代码

Question

按下butten1后弹出对话框，保存Memo中的文本为txt文件
按下butten2后弹出对话框，保存StringGrid1的内容为表格文件？

Answer 1

用一个showmessage（这里是字符串） 就可以了把

Answer 2

用一个 SaveDialog控件
按下butten1后弹出对话框，保存Memo中的文本为txt文件：
procedure TForm1.Button1Click(Sender: TObject);
begin
  self.SaveDialog1.DefaultExt:='txt';
  self.SaveDialog1.Filter:='文本文件|*.txt';
  if self.SaveDialog1.Execute then
    self.Memo1.Lines.SaveToFile(self.SaveDialog1.FileName);
end;

Answer 3

1
Memo.lines.savetofile('文件名');2
表格文件？？什么表格文件??Xls，试了个麻烦的写法
uses StdCtrls;procedure TForm1.Button1Click(Sender: TObject);
var
 i,j,h,k :integer;
begin
 j := StringGrid1.ColCount;
 h := StringGrid1.RowCount;
 if (j = 0) or (h = 0) then exit;
 Memo1.Lines.Clear;
 Memo1.Text := (StringGrid1.Cells[0,0]);
 for k := 1 to j - 1 do
  Memo1.Text := Memo1.Text  + #9 + StringGrid1.Cells[k,0];
 for i := 1 to h -1 do
  begin
    Memo1.Lines.Add(StringGrid1.Cells[0,i])  ;
    for k := 1 to j - 1 do
      Memo1.Text := Memo1.Text  + #9 + StringGrid1.Cells[k,i];
  end;
  Memo1.Lines.SaveToFile('C:\fdfd.xls');//或者使用savedialog
end;