Sams 인포북에서 나온 초보자를 위한 델파이4 21일완성을 보고 있습니다.
Day2 에서 연습문제를 풀고 있는데 첫번째 부터 막히고 있습니다.
델파이6을 갖고 연습하고 있어요.
107쪽 연습문제 1번인데요.
1. Label 컴포넌트의 내용을 변화시키는 프로시저를 Test2라는 이름으로 만들어 보아라. 폼 위에 버튼을 놓고 버튼의 OnClick 이벤트 핸들러에서 Test2프로시저를 호출해 보아라.
문제는 이렇습니다.
제가 멀 고쳐야 하는지요. 알려주시면 감사드리겠습니다.,.
그리고 제가 나름대로 적어본 소스는 다음과 같습니다.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure Test2;
begin
Label1.Caption := '바꿉니다.';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Test2;
end;
end.
감사합니다.
일반 프로시져로 만드시지 마시고 객체의 메소드로 만들어서 사용하세요...
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
procedure Test2;
end;
procedure TForm1.Test2;
begin
Label1.Caption := '바꿉니다.';
end;
^^ 항상 즐코하세요...