DELPHI 設計問題 |
答題得分者是:ko
|
lovemari
中階會員 發表:134 回覆:224 積分:76 註冊:2005-08-18 發送簡訊給我 |
按照書本寫的程式
卻出現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 |
shinjie
資深會員 發表:12 回覆:275 積分:287 註冊:2003-03-19 發送簡訊給我 |
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject); //加入這行 還要設定Button1的OnClick Event 為Button1Click
(在Button1按F11選Events然後在OnClick選Button1Click) =========================================
程式有問題並不可怕,最怕是不知問題出在那
不知問題在那不可怕,更怕是不知如何問問題
寫程式要從最簡單的開始
------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。 得之;我幸。不得;我命。 |
ko
資深會員 發表:28 回覆:785 積分:444 註冊:2002-08-14 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |