求一个OnClick事件的代码
按下butten1后弹出对话框，保存Memo中的文本为txt文件
按下butten2后弹出对话框，保存StringGrid1的内容为表格文件？
[解决办法]
用一个 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;
[解决办法]
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;
