DELPHI求注解！
case PageControl1.ActivePageIndex of
0, 1:
if SaveDialog3.Execute then
begin
case PageControl1.ActivePageIndex of
0: Save_TntDBGrid_To_CSV(DBGrid1, SaveDialog3.FileName);
1: Save_TntDBGrid_To_CSV(DBGrid2, SaveDialog3.FileName);
end;

ShowMessage('File saved!');
end;

[解决办法]
pagecontrol的当前页是第一页（0）,第二页（1），如果savedialogs 被执行 。
第一页： 执行：Save_TntDBGrid_To_CSV(DBGrid1, SaveDialog3.FileName);
第二页： 执行：Save_TntDBGrid_To_CSV(DBGrid2, SaveDialog3.FileName);
然后说：‘文件已保存’。



我要分。要分。
[解决办法]
up.结贴求一分