错误，帮忙看看

Question

unit setPower;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TfrmsetPower = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label2: TLabel;
    Label9: TLabel;
    Sdbegin1: TComboBox;
    Sdbegin2: TComboBox;
    Sdbegin3: TComboBox;
    Sdbegin4: TComboBox;
    Sdbegin5: TComboBox;
    Sdbegin6: TComboBox;
    Sdbegin7: TComboBox;
    Sdbegin8: TComboBox;
    Label17: TLabel;
    Sdend1: TComboBox;
    Sdend2: TComboBox;
    Sdend3: TComboBox;
    Sdend4: TComboBox;
    Sdend5: TComboBox;
    Sdend6: TComboBox;
    Sdend7: TComboBox;
    Sdend8: TComboBox;
    Label10: TLabel;
    Fduan1: TComboBox;
    Fduan2: TComboBox;
    Fduan3: TComboBox;
    Fduan4: TComboBox;
    Fduan5: TComboBox;
    Fduan6: TComboBox;
    Fduan7: TComboBox;
    Fduan8: TComboBox;
    GroupBox6: TGroupBox;
    Label15: TLabel;
    Label16: TLabel;
    Label11: TLabel;
    Label24: TLabel;
    edtEP: TEdit;
    edtPP: TEdit;
    edtLP: TEdit;
    edtGP: TEdit;
    GroupBox3: TGroupBox;
    Label54: TLabel;
    Label31: TLabel;
    edtTP: TEdit;
    edtFloat: TEdit;
    zhixing: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button2Click(Sender: TObject);
    procedure zhixingClick(Sender: TObject);
  private
    { Private declarations }
    procedure Ini;
    procedure FormShow(Sender: TObject);
  public
    { Public declarations }  end;var
  frmsetPower: TfrmsetPower;implementationuses uData,uHbProtocol,uGlobal, uCommState, uSelect,uType;
{$R *.dfm}procedure TfrmsetPower.FormShow(Sender: TObject);
Var
  m_JHYDParam : THbJHYDParam;
begin
  Ini;
     if dmData.GetT_JHYD >0 then
     begin
      dmData.GetT_JHYDItem(m_JHYDParam);
      edtEP.Text                := FloatToStr(m_JHYDParam.EarlyApex);
      edtLP.Text                := FloatToStr(m_JHYDParam.LaterApex);
      edtPP.Text                := FloatToStr(m_JHYDParam.Flat);
      edtGP.Text                := FloatToStr(m_JHYDParam.Vale);
      edtTP.Text                := FloatToStr(m_JHYDParam.TempPower);
      edtFloat.Text             := IntToStr(m_JHYDParam.PowerFloat);
   end ;
end;procedure TfrmsetPower.Ini;
begin
  edtEP.Text := '';  edtLP.Text := '';   edtPP.Text := '';   edtGP.Text := '';
  edtTP.Text := '';  edtFloat.Text := '';
end;
procedure TfrmsetPower.Button2Click(Sender: TObject);
begin
  close;
end;procedure TfrmsetPower.zhixingClick(Sender: TObject);
var
  i : integer;
  m_JHYDParam : THbJHYDParam;
begin
  for i:= 1 to 48 do
    m_JHYDParam.PeriodOfTime[i] :=IntToStr($3)[1];
  if Fduan1.ItemIndex <> -1 then
  begin
  case Fduan1.ItemIndex of
    1:
      for i:= Sdbegin1.ItemIndex  to Sdend1.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($0)[1];
    2:
      for i:= Sdbegin1.ItemIndex  to Sdend1.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($1)[1];
    3:
      for i:= Sdbegin1.ItemIndex  to Sdend1.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($2)[1];
    4:
      for i:= Sdbegin1.ItemIndex  to Sdend1.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($3)[1];
  end;
  end;
  if Fduan2.ItemIndex <> -1 then
  begin
  case Fduan2.ItemIndex of
    1:
      for i:= Sdbegin2.ItemIndex  to Sdend2.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($0)[1];
    2:
      for i:= Sdbegin2.ItemIndex  to Sdend2.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($1)[1];
    3:
      for i:= Sdbegin2.ItemIndex  to Sdend2.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($2)[1];
    4:
      for i:= Sdbegin2.ItemIndex  to Sdend2.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($3)[1];
  end;
  end;
  if Fduan3.ItemIndex <> -1 then
  begin
  case Fduan3.ItemIndex of
    1:
      for i:= Sdbegin3.ItemIndex  to Sdend3.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($0)[1];
    2:
      for i:= Sdbegin3.ItemIndex  to Sdend3.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($1)[1];
    3:
      for i:= Sdbegin3.ItemIndex  to Sdend3.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($2)[1];
    4:
      for i:= Sdbegin3.ItemIndex  to Sdend3.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($3)[1];
  end;
  end;

Answer 1

if Fduan4.ItemIndex <> -1 then
  begin
  case Fduan4.ItemIndex of
    1:
      for i:= Sdbegin4.ItemIndex  to Sdend4.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($0)[1];
    2:
      for i:= Sdbegin4.ItemIndex  to Sdend4.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($1)[1];
    3:
      for i:= Sdbegin4.ItemIndex  to Sdend4.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($2)[1];
    4:
      for i:= Sdbegin4.ItemIndex  to Sdend4.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($3)[1];
  end;
  end;
  if Fduan5.ItemIndex <> -1 then
  begin
  case Fduan5.ItemIndex of
    1:
      for i:= Sdbegin5.ItemIndex  to Sdend5.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($0)[1];
    2:
      for i:= Sdbegin5.ItemIndex  to Sdend5.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($1)[1];
    3:
      for i:= Sdbegin5.ItemIndex  to Sdend5.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($2)[1];
    4:
      for i:= Sdbegin5.ItemIndex  to Sdend5.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($3)[1];
  end;
  end;
  if Fduan6.ItemIndex <> -1 then
  begin
  case Fduan6.ItemIndex of
    1:
      for i:= Sdbegin6.ItemIndex  to Sdend6.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($0)[1];
    2:
      for i:= Sdbegin6.ItemIndex  to Sdend6.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($1)[1];
    3:
      for i:= Sdbegin6.ItemIndex  to Sdend6.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($2)[1];
    4:
      for i:= Sdbegin6.ItemIndex  to Sdend6.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($3)[1];
  end;
  end;
  if Fduan7.ItemIndex <> -1 then
  begin
  case Fduan7.ItemIndex of
    1:
      for i:= Sdbegin7.ItemIndex  to Sdend7.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($0)[1];
    2:
      for i:= Sdbegin7.ItemIndex  to Sdend7.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($1)[1];
    3:
      for i:= Sdbegin7.ItemIndex  to Sdend7.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($2)[1];
    4:
      for i:= Sdbegin7.ItemIndex  to Sdend7.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($3)[1];
  end;
  end;
  if Fduan8.ItemIndex <> -1 then
  begin
  case Fduan8.ItemIndex of
    1:
      for i:= Sdbegin8.ItemIndex  to Sdend8.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($0)[1];
    2:
      for i:= Sdbegin8.ItemIndex  to Sdend8.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($1)[1];
    3:
      for i:= Sdbegin8.ItemIndex  to Sdend8.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($2)[1];
    4:
      for i:= Sdbegin8.ItemIndex  to Sdend8.ItemIndex do
      m_JHYDParam.PeriodOfTime[i] := IntToStr($3)[1];
  end;
  end;
  HbTask[iHbTaskNum].m_JHYDParam.PeriodOfTime   :=m_JHYDParam.PeriodOfTime;
  HbTask[iHbTaskNum].m_TX.DataType[0]   := 3;
  HbTask[iHbTaskNum].m_TX.DataTypeCount := 1;
  HbTask[iHbTaskNum].m_TX.Frame.DC      := FUN_SETPARAM;
  Inc(iHbTaskNum);
  if iHbTaskNum > 0 then
    begin
      bSend      := true;
      frmCommState.Show;
    end;  m_JHYDParam.EarlyApex    := StrToFloat(edtEP.Text);
  m_JHYDParam.LaterApex    := StrToFloat(edtLP.Text);
  m_JHYDParam.Flat         := StrToFloat(edtPP.Text);
  m_JHYDParam.Vale         := StrToFloat(edtGP.Text);
  m_JHYDParam.TempPower    := StrToFloat(edtTP.Text);
  m_JHYDParam.PowerFloat   := StrToInt(edtFloat.Text);
  dmData.SaveJHYD(m_JHYDParam);  HbTask[iHbTaskNum].m_JHYDParam.Vale   :=m_JHYDParam.Vale;
  HbTask[iHbTaskNum].m_TX.DataType[0]   := 1;
  HbTask[iHbTaskNum].m_TX.DataTypeCount := 1;
  HbTask[iHbTaskNum].m_TX.Frame.DC      := FUN_SETPARAM;
  Inc(iHbTaskNum);
  if iHbTaskNum > 0 then
    begin
      bSend      := true;
      frmCommState.Show;
    end;
  HbTask[iHbTaskNum].m_JHYDParam.EarlyApex :=m_JHYDParam.EarlyApex ;
  HbTask[iHbTaskNum].m_TX.DataType[0]      := 1;
  HbTask[iHbTaskNum].m_TX.DataTypeCount    := 1;
  HbTask[iHbTaskNum].m_TX.Frame.DC         := FUN_SETPARAM;
  Inc(iHbTaskNum);
  if iHbTaskNum > 0 then
    begin
      bSend      := true;
      frmCommState.Show;
    end;
  HbTask[iHbTaskNum].m_JHYDParam.LaterApex :=m_JHYDParam.LaterApex ;
  HbTask[iHbTaskNum].m_TX.DataType[0]   := 1;
  HbTask[iHbTaskNum].m_TX.DataTypeCount := 1;
  HbTask[iHbTaskNum].m_TX.Frame.DC      := FUN_SETPARAM;
  Inc(iHbTaskNum);
  if iHbTaskNum > 0 then
    begin
      bSend      := true;
      frmCommState.Show;
    end;
  HbTask[iHbTaskNum].m_JHYDParam.Flat :=m_JHYDParam.Flat ;
  HbTask[iHbTaskNum].m_TX.DataType[0]   := 1;
  HbTask[iHbTaskNum].m_TX.DataTypeCount := 1;
  HbTask[iHbTaskNum].m_TX.Frame.DC      := FUN_SETPARAM;
  Inc(iHbTaskNum);
  if iHbTaskNum > 0 then
    begin
      bSend      := true;
      frmCommState.Show;
    end;
  HbTask[iHbTaskNum].m_JHYDParam.TempPower :=m_JHYDParam.TempPower ;
  HbTask[iHbTaskNum].m_TX.DataType[0]   := 1;
  HbTask[iHbTaskNum].m_TX.DataTypeCount := 1;
  HbTask[iHbTaskNum].m_TX.Frame.DC      := FUN_SETPARAM;
  Inc(iHbTaskNum);
  if iHbTaskNum > 0 then
    begin
      bSend      := true;
      frmCommState.Show;
    end;
  HbTask[iHbTaskNum].m_JHYDParam.PowerFloat  :=m_JHYDParam.PowerFloat;
  HbTask[iHbTaskNum].m_TX.DataType[0]   := 2;
  HbTask[iHbTaskNum].m_TX.DataTypeCount := 1;
  HbTask[iHbTaskNum].m_TX.Frame.DC      := FUN_SETPARAM;
  Inc(iHbTaskNum);
  if iHbTaskNum > 0 then
    begin
      bSend      := true;
      frmCommState.Show;
    end;
end;end.在编辑的时候有[Hint] setPower.pas(69): Private symbol 'FormShow' declared but never used当执行了后，它说至少有一个参数没有定值。里面还有一些大家能不能跟我改进一些