<!--CodeS-->
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender:TObject);
var
sum,j:integer;
begin
j:=0;sum:=0;
while j<10 do
begin
j:=j+1;
sum:=sum+j;
end;
label1.caption:=inttostr(sum);
end;
end.
<!--CodeE-->
run을 누르니깐 이 에러들이 뜨네요
저 왕초보라서 부탁해요
[Error] Unit1.pas(26): Undeclared identifier: 'Button1Click'
[Error] Unit1.pas(26): ';' expected but '(' found
[Error] Unit1.pas(36): Undeclared identifier: 'label1'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
델파이 폼 위에 버튼과 라벨을 한개씩 올리신 후에 프로퍼티 창에서 이벤트 탭의 OnClick 이벤트를 더블클릭하여 그 이벤트에 코딩 해 주셔야 합니다.
아래는 그냥 소스에 직접 넣으신 것 같습니다. ^^