DELPHI求注解！该如何解决

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.结贴求一分