按照書本寫的程式 卻出現ERROR 可以幫我看看嗎 ========================分格線======================= unit reg; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Memo1: TMemo; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Registry; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var Reg :TRegistry; Buffer :PChar ; D :TDATE; T :TTIME; begin Buffer := '101010'; D := DATE; T := TIME; Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; begin Reg.WriteCurrency ('Currency' ,100 ); Reg.WriteBinaryData ('BinaryData' ,Buffer, 10 ); Reg.WriteDataTime ('DataTime' ,D ); Reg.WriteData ('Data' ,D ); Reg.WriteTime ('Time' ,T ); Reg.WriteFloat ('Float' , 101.5 ); Reg.WriteInteger ('Integer' , 99 ); Reg.WriteBoo1 ('Boo1' , True ); Reg.WriteString ('String' , 'TEST' ); Reg.WriteExpandString('ExpandString', 'TEST , Expand String'); end; finally Reg.CloseKey; Reg.Free; end; end; end. ========================分格線======================= 他出現第一各ERROR procedure TForm1.Button1Click(Sender: TObject); 在這行... [Error] reg.pas(28): Undeclared identifier: 'Button1Click' 新手發問 有不對之處請原諒

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); //加入這行 還要設定Button1的OnClick Event 為Button1Click (在Button1按F11選Events然後在OnClick選Button1Click) ========================================= 程式有問題並不可怕，最怕是不知問題出在那 不知問題在那不可怕，更怕是不知如何問問題 寫程式要從最簡單的開始

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。

lovemari 你好: 因為你uses Registry; 你要有reg.pas的使用路徑 [tools]>>[Environment Option]>>[library] 然後指定reg.pas的位置

------
======================
昏睡~
不昏睡~
不由昏睡~