procedure TMDaFrm2.MdaBitBtn1Click(Sender: TObject); var i:integer; { dbedt: TDBEdit; begin MdaTable1.close; {不同} for i := 1 to 15 do begin dbedt := FindComponent('Mdadbedit' IntToStr(i)) as TDBEdit; dbedt.Enabled:=False; {不同} end; close; end; procedure TMDaFrm2.MdaButton1Click(Sender: TObject); var i:integer; dbedt: TDBEdit; begin for i := 1 to 15 do begin dbedt := FindComponent('Mdadbedit' IntToStr(i)) as TDBEdit; dbedt.Enabled:=True;{不同} end; MdaTable1.Append; {不同} end; procedure TMDaFrm2.MdaButton2Click(Sender: TObject); var i:integer; dbedt: TDBEdit; begin for i := 1 to 15 do begin dbedt := FindComponent('Mdadbedit' IntToStr(i)) as TDBEdit; dbedt.Enabled:=True;{不同} end; end; 請問如何寫一個Procedure或Function 使用下列重覆程式 var i:integer; dbedt: TDBEdit; begin for i := 1 to 15 do begin dbedt := FindComponent('Mdadbedit' IntToStr(i)) as TDBEdit; dbedt.Enabled:=True;{或False} end; 謝謝

procedure TMDaFrm2.MdaBitBtn1Click(Sender: TObject);
begin
  MdaTable1.close;    {不同}
  EnableDBEdit(False);
  close;
end;
   
procedure TMDaFrm2.MdaButton1Click(Sender: TObject);
begin
  EnableDBEdit(True);
  MdaTable1.Append; {不同}
end;
   
procedure TMDaFrm2.MdaButton2Click(Sender: TObject);
begin
  EnableDBEdit(True);
end;
   
Procedure TMDaFrm2.EnableDBEdit(Value: Boolean);
var i:integer;
    dbedt: TDBEdit;
begin
  for i := 1 to 15 do begin
    dbedt := FindComponent('Mdadbedit'   IntToStr(i)) as TDBEdit;
    dbedt.Enabled := Value;
  end;
end;

發表人 - hagar 於 2003/02/16 15:50:18

引言:

Procedure TMDaFrm2.EnableDBEdit(Value: Boolean);    [Error] Undeclared identifier: 'EnableDBEdit'
[Error] ';' expected but '(' found    var i:integer;
    dbedt: TDBEdit;
begin
  for i := 1 to 15 do begin
    dbedt := FindComponent('Mdadbedit'   IntToStr(i)) as TDBEdit;    [Error] Undeclared identifier: 'FindComponent'
[Error] Operator not applicable to this operand type        dbedt.Enabled := Value;    [Error] Undeclared identifier: 'Value'      end;
end;        

謝謝指導,可是在Run時尚有些error message

把游漂放在這一行 Procedure TMDaFrm2.EnableDBEdit(Value: Boolean); 然後按 Ctrl Shift C 試試。

引言: 把游漂放在這一行 Procedure TMDaFrm2.EnableDBEdit(Value: Boolean); 然後按 Ctrl Shift C 試試。 [Hint] D1frm1.pas(112): Private symbol 'EnableDBEdit' declared but never used 出現下列訊息thank

可否把整個 Unit 的 Source 貼出來？ 另外, 這個 Hint 的訊息是說 您宣告了 EnableDBEdit 這個 Procedure 卻未在其它地方使用(或呼叫)過它

引言: 非常感謝Hager解答,可以Run ㄉ謝Hager