200分！！！打印问题求教！！！

Question

慢慢学吧，或是看看《delphi5开发人员指南》一书，其中有比较详细的讲述。一时说不完的。

Answer 1

给你例子：分批贴出
unit PrintSet;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ComCtrls, Mask, DBCtrls, Db, DBTables, Buttons;type
  TForm_PrintSet = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet4: TTabSheet;
    Bevel4: TBevel;
    Query1: TQuery;
    GroupBox3: TGroupBox;
    Label29: TLabel;
    Label30: TLabel;
    TabSheet5: TTabSheet;
    Bevel6: TBevel;
    CheckZBT: TCheckBox;
    CombZBTFN: TComboBox;
    CombZBTFS: TComboBox;
    EditZBTX: TEdit;
    EditZBTY: TEdit;
    UpDown10: TUpDown;
    UpDown9: TUpDown;
    CheckFBT: TCheckBox;
    CombFBTFN: TComboBox;
    CombFBTFS: TComboBox;
    EditFBTX: TEdit;
    UpDown11: TUpDown;
    EditFBTY: TEdit;
    UpDown12: TUpDown;
    Label26: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label27: TLabel;
    Label34: TLabel;
    EditZBTWZ: TEdit;
    EditFBTWZ: TEdit;
    GroupBox7: TGroupBox;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    EditDQYY: TEdit;
    EditDQYX: TEdit;
    CombDQYFS: TComboBox;
    CombDQYFN: TComboBox;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    CombZYSFN: TComboBox;
    CombZYSFS: TComboBox;
    EditZYSX: TEdit;
    EditZYSY: TEdit;
    UpDown3: TUpDown;
    UpDown4: TUpDown;
    ChecDYZYS: TCheckBox;
    ChecDYDQY: TCheckBox;
    Label17: TLabel;
    CombZBTXHX: TComboBox;
    CombFBTXHX: TComboBox;
    CombDQYYMWZ: TComboBox;
    Label18: TLabel;
    CombZYSYMWZ: TComboBox;
    TabSheet2: TTabSheet;
    New: TButton;
    Del: TButton;
    Ext: TButton;
    Save: TButton;
    Cancel: TButton;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel5: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label3: TLabel;
    CombDYFX: TComboBox;
    EditZK: TEdit;
    EditZG: TEdit;
    CombZx: TComboBox;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    EditYS: TEdit;
    EditYX: TEdit;
    EditYZ: TEdit;
    EditYY: TEdit;
    UpDoS: TUpDown;
    UpDoX: TUpDown;
    UpDoZ: TUpDown;
    UpDoY: TUpDown;
    CombBbdm: TComboBox;

Answer 2

Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    LabeSMXX: TLabel;
    Label23: TLabel;
    Label41: TLabel;
    CheckCZYG: TCheckBox;
    CheckZBDW: TCheckBox;
    CombCZYGFN: TComboBox;
    CombZBDWFN: TComboBox;
    CombZBDWFS: TComboBox;
    CombCZYGFS: TComboBox;
    EditZBDWX: TEdit;
    EditCZYGX: TEdit;
    EditZBDWY: TEdit;
    EditCZYGY: TEdit;
    UpDown23: TUpDown;
    UpDown25: TUpDown;
    UpDown24: TUpDown;
    UpDown16: TUpDown;
    MemoSMXX: TMemo;
    CombCZYGymwz: TComboBox;
    CombZBDWymwz: TComboBox;
    CombCZYGXXY: TComboBox;
    CombZBDWXXY: TComboBox;
    UpDoPW: TUpDown;
    UpDoPH: TUpDown;
    CheckSM: TCheckBox;
    CombSMFN: TComboBox;
    CombSMFS: TComboBox;
    EditSMX: TEdit;
    EditSMY: TEdit;
    UpDown14: TUpDown;
    UpDown13: TUpDown;
    CombSMymwz: TComboBox;
    EditWBK: TEdit;
    UpDown7: TUpDown;
    Label28: TLabel;
    GroupBox4: TGroupBox;
    RadiDYWGX: TRadioButton;
    RadiBDYWGX: TRadioButton;
    GroupBox5: TGroupBox;
    Label24: TLabel;
    Label25: TLabel;
    CombZWFN: TComboBox;
    CombZWFS: TComboBox;
    GroupBox6: TGroupBox;
    Label16: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    CheckBT: TCheckBox;
    CombBTFS: TComboBox;
    EditBTX: TEdit;
    EditBTY: TEdit;
    UpDown5: TUpDown;
    UpDown6: TUpDown;
    EditBTWZ: TEdit;
    CombBTXHX: TComboBox;
    CombBTXXY: TComboBox;
    CombBTFN: TComboBox;
    Bevel3: TBevel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    CheckRQ: TCheckBox;
    CheckSJ: TCheckBox;
    CombRQFN: TComboBox;
    CombSJFN: TComboBox;
    CombSJFS: TComboBox;
    CombRQFS: TComboBox;
    EditRQX: TEdit;
    EditSJX: TEdit;
    EditSJY: TEdit;
    EditRQY: TEdit;
    UpDown17: TUpDown;
    UpDown19: TUpDown;
    UpDown20: TUpDown;
    UpDown18: TUpDown;
    CombRQymwz: TComboBox;
    CombSJymwz: TComboBox;
    CombSJXXY: TComboBox;
    CombRQXXY: TComboBox;
    Label11: TLabel;
    Label42: TLabel;
    EditZBDWTSWZ: TEdit;
    EditCZYGTSWZ: TEdit;
    Label49: TLabel;
    CombZBTXXY: TComboBox;
    CombFBTXXY: TComboBox;
    CombBbmc: TComboBox;
    Database1: TDatabase;
    procedure ExtClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure UpDoPWClick(Sender: TObject; Button: TUDBtnType);
    procedure EditZGKeyPress(Sender: TObject; var Key: Char);
    procedure EditZKKeyPress(Sender: TObject; var Key: Char);

Answer 3

procedure EditYSKeyPress(Sender: TObject; var Key: Char);
    procedure EditYXKeyPress(Sender: TObject; var Key: Char);
    procedure EditYZKeyPress(Sender: TObject; var Key: Char);
    procedure EditYYKeyPress(Sender: TObject; var Key: Char);
    procedure UpDoSClick(Sender: TObject; Button: TUDBtnType);
    procedure UpDoXClick(Sender: TObject; Button: TUDBtnType);
    procedure UpDoZClick(Sender: TObject; Button: TUDBtnType);
    procedure UpDoYClick(Sender: TObject; Button: TUDBtnType);
    procedure NewClick(Sender: TObject);
    procedure DelClick(Sender: TObject);
    procedure SaveClick(Sender: TObject);
    procedure CombZxChange(Sender: TObject);
    procedure CombBbmcChange(Sender: TObject);
    procedure EditBTXKeyPress(Sender: TObject; var Key: Char);
    procedure EditBTYKeyPress(Sender: TObject; var Key: Char);
    procedure EditZBTXKeyPress(Sender: TObject; var Key: Char);
    procedure EditZBTYKeyPress(Sender: TObject; var Key: Char);
    procedure EditFBTXKeyPress(Sender: TObject; var Key: Char);
    procedure EditFBTYKeyPress(Sender: TObject; var Key: Char);
    procedure EditSMXKeyPress(Sender: TObject; var Key: Char);
    procedure EditSMYKeyPress(Sender: TObject; var Key: Char);
    procedure EditRQXKeyPress(Sender: TObject; var Key: Char);
    procedure EditRQYKeyPress(Sender: TObject; var Key: Char);
    procedure EditSJYKeyPress(Sender: TObject; var Key: Char);
    procedure EditCZYGXKeyPress(Sender: TObject; var Key: Char);
    procedure EditCZYGYKeyPress(Sender: TObject; var Key: Char);
    procedure EditZBDWXKeyPress(Sender: TObject; var Key: Char);
    procedure EditZBDWYKeyPress(Sender: TObject; var Key: Char);
    procedure EditSJXKeyPress(Sender: TObject; var Key: Char);
    procedure UpDoPHClick(Sender: TObject; Button: TUDBtnType);
    procedure CombBbdmChange(Sender: TObject);
    procedure UpDown7Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown10Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown11Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown8Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown9Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown12Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown3Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown4Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown13Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown14Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown17Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown19Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown23Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown25Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown18Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown20Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown24Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown16Click(Sender: TObject; Button: TUDBtnType);
    procedure CancelClick(Sender: TObject);
    procedure EditWBKKeyPress(Sender: TObject; var Key: Char);
    procedure EditZKKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditZGKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditYSKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditYXKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditYZKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditYYKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditZBTXKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditZBTYKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditFBTXKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditFBTYKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditBTXKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditBTYKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditDQYXKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditDQYYKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditZYSXKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditZYSYKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditRQXKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditRQYKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditSJXKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditSJYKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditCZYGXKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditCZYGYKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditZBDWXKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditZBDWYKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditSMXKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditSMYKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);

Answer 4

建议你使用cell或者formula one这类的组件开发，容易还稳定。

Answer 5

procedure TForm_PrintSet.ShowDycs;     //显示报表打印参数
begin
  ClearData;
  if (MYDycs[0,3]='0') or (MYDycs[0,3]='1') then
  CombZx.ItemIndex:=strtoint(MYDycs[0,3]);
  EditZK.Text:=MYDycs[0,4];
  EditZG.Text:=MYDycs[0,5];
  if (MYDycs[9,7]='0') or (MYDycs[9,7]='1') then
  CombDYFX.ItemIndex:=strtoint(MYDycs[9,7]);
  EditYS.Text:=MYDycs[0,7];            //页边距
  EditYX.Text:=MYDycs[0,9];
  EditYZ.Text:=MYDycs[0,6];
  EditYY.Text:=MYDycs[0,8];
  if MYDycs[1,3]='1' then              //打印说明文字
  CheckSM.Checked:=true
  else
  CheckSM.Checked:=false;
  if MYDycs[1,4]<>''then
  CombSMFN.ItemIndex:=strtoint(MYDycs[1,4]);
  if MYDycs[1,5]<>''then
  CombSMFS.ItemIndex:=strtoint(MYDycs[1,5]);
  EditSMX.Text:=MYDycs[1,6];
  EditSMY.Text:=MYDycs[1,7];
  if (MYDycs[1,8]='0') or (MYDycs[1,8]='1') then
  CombSMYMWZ.ItemIndex:=strtoint(MYDycs[1,8]);
  MemoSMXX.Text:=MYDycs[1,9];
  EditWBK.Text:=MYDycs[1,10];  if MYDycs[2,3]='1' then              //打印时间
  CheckSJ.Checked:=true
  else
  CheckSJ.Checked:=false;
  if MYDycs[2,4]<>''then
  CombSJFN.ItemIndex :=strtoint(MYDycs[2,4]);
  if MYDycs[2,5]<>''then
  CombSJFS.ItemIndex :=strtoint(MYDycs[2,5]);
  EditSJX.Text:=MYDycs[2,6];
  EditSJY.Text:=MYDycs[2,7];
  if (MYDycs[2,8]='0') or (MYDycs[2,8]='1') then
  CombSJYMWZ.ItemIndex:=strtoint(MYDycs[2,8]);
  if MYDycs[2,10]<>''then
  CombSJXXY.ItemIndex :=strtoint(MYDycs[2,10]);  if MYDycs[3,3]='1' then              //打印日期
  CheckRQ.Checked:=true
  else
  CheckRQ.Checked:=false;
  if MYDycs[3,4]<>''then
  CombRQFN.ItemIndex:=strtoint(MYDycs[3,4]);
  if MYDycs[3,5]<>''then
  CombRQFS.ItemIndex:=strtoint(MYDycs[3,5]);
  EditRQX.Text:=MYDycs[3,6];
  EditRQY.Text:=MYDycs[3,7];
  if (MYDycs[3,8]='0') or (MYDycs[3,8]='1') then
  CombRQYMWZ.ItemIndex:=strtoint(MYDycs[3,8]);
  if MYDycs[3,10]<>''then
  CombRQXXY.ItemIndex :=strtoint(MYDycs[3,10]);
  if MYDycs[4,3]='1' then              //打印操作员工
  CheckCZYG.Checked:=true
  else
  CheckCZYG.Checked:=false;
  if MYDycs[4,4]<>''then
  CombCZYGFN.ItemIndex:=strtoint(MYDycs[4,4]);
  if MYDycs[4,5]<>''then
  CombCZYGFS.ItemIndex :=strtoint(MYDycs[4,5]);
  EditCZYGX.Text:=MYDycs[4,6];
  EditCZYGY.Text:=MYDycs[4,7];
  if (MYDycs[4,8]='0') or (MYDycs[4,8]='1') then
  CombCZYGYMWZ.ItemIndex:=strtoint(MYDycs[4,8]);
  EditCZYGTSWZ.Text:=MYDycs[4,9];
  if MYDycs[4,10]<>''then
  CombCZYGXXY.ItemIndex :=strtoint(MYDycs[4,10]);  if MYDycs[5,3]='1' then              //打印制表单位
  CheckZBDW.Checked:=true
  else
  CheckZBDW.Checked:=false;
  if MYDycs[5,4]<>''then
  CombZBDWFN.ItemIndex :=strtoint(MYDycs[5,4]);
  if MYDycs[5,5]<>''then
  CombZBDWFS.ItemIndex :=strtoint(MYDycs[5,5]);
  EditZBDWX.Text:=MYDycs[5,6];
  EditZBDWY.Text:=MYDycs[5,7];
  if (MYDycs[5,8]='0') or (MYDycs[5,8]='1') then
  CombZBDWYMWZ.ItemIndex:=strtoint(MYDycs[5,8]);
  EditZBDWTSWZ.Text:=MYDycs[5,9];
  if MYDycs[5,10]<>''then
  CombZBDWXXY.ItemIndex :=strtoint(MYDycs[5,10]);

Answer 6

  if MYDycs[6,3]='1' then              //打印报表头
  CheckBT.Checked:=true
  else
  CheckBT.Checked:=false;
  if MYDycs[6,4]<>''then
  CombBTFN.ItemIndex:=strtoint(MYDycs[6,4]);
  if MYDycs[6,5]<>''then
  CombBTFS.ItemIndex:=strtoint(MYDycs[6,5]);
  EditBTX.Text:=MYDycs[6,6];
  EditBTY.Text:=MYDycs[6,7];
  if (MYDycs[6,8]='0') or (MYDycs[6,8]='1') then
  CombBTXHX.ItemIndex:=strtoint(MYDycs[6,8]);
  EditBTWZ.Text:=MYDycs[6,9];
  if MYDycs[6,10]<>''then
  CombBTXXY.ItemIndex :=strtoint(MYDycs[6,10]);
  if MYDycs[7,3]='1' then            //打印正标题
  CheckZBT.Checked:=true
  else
  CheckZBT.Checked:=false;
  if MYDycs[7,4]<>''then
  CombZBTFN.ItemIndex :=strtoint(MYDycs[7,4]);
  if MYDycs[7,5]<>''then
  CombZBTFS.ItemIndex :=strtoint(MYDycs[7,5]);
  EditZBTX.Text:=MYDycs[7,6];
  EditZBTY.Text:=MYDycs[7,7];
  if (MYDycs[7,8]='0') or (MYDycs[7,8]='1') then
  CombZBTXHX.ItemIndex:=strtoint(MYDycs[7,8]);
  EditZBTWZ.Text:=MYDycs[7,9];
  if MYDycs[7,10]<>''then
  CombZBTXXY.ItemIndex :=strtoint(MYDycs[7,10]);  if MYDycs[8,3]='1' then            //打印副标题
  CheckFBT.Checked:=true
  else                                                   
  CheckFBT.Checked:=false;
  if MYDycs[8,4]<>''then
  CombFBTFN.itemindex:=strtoint(MYDycs[8,4]);
  if MYDycs[8,5]<>''then
  CombFBTFS.ItemIndex :=strtoint(MYDycs[8,5]);
  EditFBTX.Text:=MYDycs[8,6];
  EditFBTY.Text:=MYDycs[8,7];
  if (MYDycs[8,8]='0') or (MYDycs[8,8]='1') then
  CombFBTXHX.ItemIndex:=strtoint(MYDycs[8,8]);
  EditFBTWZ.Text:=MYDycs[8,9];
  if MYDycs[8,10]<>''then
  CombFBTXXY.ItemIndex :=strtoint(MYDycs[8,10]);  if MYDycs[9,6]='1' then              //打印网格线
  RadiDYWGX.Checked:=true
  else
  RadiBDYWGX.Checked:=true;  if MYDycs[9,4]<>''then
  CombZWFN.ItemIndex :=strtoint(MYDycs[9,4]);          //正文文字
  if MYDycs[9,5]<>''then
  CombZWFS.ItemIndex :=strtoint(MYDycs[9,5]);  if MYDycs[10,3]='1' then            //打印总页数
  ChecDYZYS.Checked:=true
  else
  ChecDYZYS.Checked:=false;
  if MYDycs[10,4]<>''then
  CombZYSFN.ItemIndex :=strtoint(MYDycs[10,4]);
  if MYDycs[10,5]<>''then
  CombZYSFS.ItemIndex :=strtoint(MYDycs[10,5]);
  EditZYSX.Text:=MYDycs[10,6];
  EditZYSY.Text:=MYDycs[10,7];
  if (MYDycs[10,8]='0') or (MYDycs[10,8]='1') then
  CombZYSYMWZ.ItemIndex:=strtoint(MYDycs[10,8]);  if MYDycs[11,3]='1' then            //打印当前页
  ChecDYDQY.Checked:=true
  else
  ChecDYDQY.Checked:=false;
  if MYDycs[11,4]<>''then
  CombDQYFN.ItemIndex :=strtoint(MYDycs[11,4]);
  if MYDycs[11,5]<>''then
  CombDQYFS.ItemIndex :=strtoint(MYDycs[11,5]);
  EditDQYX.Text:=MYDycs[11,6];
  EditDQYY.Text:=MYDycs[11,7];
  if (MYDycs[11,8]='0') or (MYDycs[11,8]='1') then
  CombDQYYMWZ.ItemIndex:=strtoint(MYDycs[11,8]);  if ((CombDYFX.Text='纵向打印') or (trim(CombDYFX.Text)=''))and(CombZX.Text='A4')then
  begin
      EditZG.Text:='21  cm';
      EditZK.Text:='29.7cm';
      EditZG.ReadOnly:=true;
      EditZK.ReadOnly:=true;
      UpDoPH.Enabled:=false;
      UpDoPW.Enabled:=false;
  end;
  if (CombDYFX.Text='横向打印')and(CombZX.Text='A4')then
  begin
      EditZG.Text:='29.7cm';
      EditZK.Text:='21  cm';
      EditZG.ReadOnly:=true;
      EditZK.ReadOnly:=true;
      UpDoPH.Enabled:=false;
      UpDoPW.Enabled:=false;
  end;

Answer 7

if CombZX.Text='自定义'then
  begin
      EditZG.Text:='';
      EditZK.Text:='';
      EditZG.ReadOnly:=false;
      EditZK.ReadOnly:=false;
      UpDoPH.Enabled:=true;
      UpDoPW.Enabled:=true;
  end;
end;procedure TForm_PrintSet.FormActivate(Sender: TObject);
begin
  ClearData;
  ReadTableName;
  ReadFNFS;
  CombBbmc.ItemIndex:=-1;
  CombBbdm.ItemIndex:=-1;
end;procedure TForm_PrintSet.CombBbmcChange(Sender: TObject);
begin
  if MYState<>'Inse' then
  begin
    ReadFromTable;
    showDycs;
    CombBbdm.ItemIndex:=CombBbmc.ItemIndex;
  end;
end;

Answer 8

hammer_shi(天下第一流&&&&&以后再也不UP了) 请讲讲你的原理与实现要点，你哪么长的实例谁慢慢看看哟，且拿来根本无法一试
不知各位有这个经验否，文本的拷到程序中去，或多或少有些文本处理错误，调试极其不便，若要给，可以给个下载实例，或者在最后附个信箱，方便将实例打包后转发，大家讨论起来学习可能要快些。
仅做建议，不要向我扔砖头

Answer 9

多谢rockynmc(rockynmc)兄关心，hammer_shi兄已经发例子到偶的邮箱。