한국 델파이 개발자 모임

도와 주세요

간단한 게임프로그램을 책을 보고 그대로 만들었는데

실행이 되지 않습니다.

왜 그런지 이유를 모르겠습니다.

소스와 오류메세지를 아래와 같이 등록하오니

부디부디 알려주시면 정말로 감사하겠습니다.

왕초보 드림

=========================================================================

소스

1. 레이블 3개

2. 에디트 창

3. 메모창

4. 버튼

5. 그리고 코드는 아래와 같습니다.

unit game1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Memo1: TMemo;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure FormCreate(Sender: TObject);

procedure BtnStartClick(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key:Char);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

comnum:string;

mynum:string;

times:integer;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

randomize;{난수 루틴을 초기화 한다.}

Edit1.Enabled:=False;

label1.caption:='시작 버튼을 누르세요';

end;

procedure TForm1.BtnStartClick(Sender: TObject);

begin

Memo1.Lines.Clear;{기록내용을 지움}

{난수를 만들되 각 자리값이 중복되어서는

안되며 중간에 0 이 있어도 안된다.}

repeat

comnum:=IntToStr(random(900)+100);

Until (comnum[1]<>comnum[2]) and

(comnum[1]<>comnum[3]) and

(comnum[2]<>comnum[3]) and

(comnum[1]<>'0') and

(comnum[2]<>'0') and

(comnum[3]<>'0');

times:=0;

label1.caption:='숫자를 입력하십시요';

Edit1.Enabled:=True;

Edit1.SetFocus;

Edit1.SelectAll;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key:Char);

var

S,B,i:inte0g0er;

begin

if Key<>#13 then Exit;{엔터키를 눌러야함}

{숫자 이외의 문자가 있거나 세자리 숫자가 아닌경우}

if (StrToIntDef(Edit1.Text,0)=0)

or (Length(Edit1.Text)<>3) then

begin

label1.caption:='세자리 숫자를 입력하십시요';

Edit1.SetFocus;

Edit1.selectAll;

Exit;

end;

times:=times+1;

S:=0;{스트라이크}

B:=0;{볼}

mynum:=Edit1.Text;

{스트라이크 개수를 센다}

for i:=1 to 3 do

if comnum[i]=mynum[i] then S:=S+1;

{볼개수를 센다}

if comnum[1]=mynum[2] then B:=B+1;

if comnum[1]=mynum[3] then B:=B+1;

if comnum[2]=mynum[1] then B:=B+1;

if comnum[2]=mynum[3] then B:=B+1;

if comnum[3]=mynum[1] then B:=B+1;

if comnum[3]=mynum[2] then B:=B+1;

{기록 내용을 메모로 출력한다}

Memo1.Lines.Add(Format('%s=%d 스트라이크%d볼',[mynum,S,B]));

{스트라이크가 셋이면 정답을 맞춘 것임}

if S=3 then

begin

showMessage('정답을 맞추었습니다. 축하합니다.');

Edit1.Enabled:=False;

label1.caption:='시작버튼을 누르십시요';

end

else

begin

label1.caption:='숫자를 입력하십시요';

Edit1.SetFocus;

Edit1.SelectAll;

end

end;

end.

6. 오류 메세지는 아래와 같습니다.

Exception EClassNotFound in module game11.exe at 0000C366

Class TButton not found.

부디 고매하신 고수님들의 하해와 같은 가르침을 기다리며

감히 왕초보 드립니다.

그럼 건강하시길

이 게시물을

1 COMMENTS

Ziker • 2001.11.05 02:44

안녕하세요.~

음냐.. 소스에는 버튼을 쓰는걸로 되어 있는거 같은디

실제 폼에 없는거 같은디요...

프로시져까지 있는거 같고

> type

> TForm1 = class(TForm)

> Edit1: TEdit;

> Memo1: TMemo;

> Label1: TLabel;

> Label2: TLabel;

> Label3: TLabel;

이 부분에서 버튼이 정의 되어 있지 않습니다.

그리고 에러 메시지도 버튼(TButton)클래스를 못 찾것다고

즉 폼에 가져다 놓질 않았다고 하는군요.. 그럼...

왕초보 wrote:

> 간단한 게임프로그램을 책을 보고 그대로 만들었는데

> 실행이 되지 않습니다.

> 왜 그런지 이유를 모르겠습니다.

>

> 소스와 오류메세지를 아래와 같이 등록하오니

> 부디부디 알려주시면 정말로 감사하겠습니다.

>

> 왕초보 드림

> =========================================================================

>

> 소스

>

> 1. 레이블 3개

> 2. 에디트 창

> 3. 메모창

> 4. 버튼

> 5. 그리고 코드는 아래와 같습니다.

> unit game1;

>

> interface

>

> uses

> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

> StdCtrls;

>

> type

> TForm1 = class(TForm)

> Edit1: TEdit;

> Memo1: TMemo;

> Label1: TLabel;

> Label2: TLabel;

> Label3: TLabel;

>

> procedure FormCreate(Sender: TObject);

> procedure BtnStartClick(Sender: TObject);

> procedure Edit1KeyPress(Sender: TObject; var Key:Char);

> procedure Button1Click(Sender: TObject);

> private

> { Private declarations }

> public

> { Public declarations }

> end;

>

> var

> Form1: TForm1;

> comnum:string;

> mynum:string;

> times:integer;

>

> implementation

>

> {$R *.DFM}

>

> procedure TForm1.FormCreate(Sender: TObject);

> begin

> randomize;{난수 루틴을 초기화 한다.}

> Edit1.Enabled:=False;

> label1.caption:='시작 버튼을 누르세요';

>

> end;

>

> procedure TForm1.BtnStartClick(Sender: TObject);

> begin

> Memo1.Lines.Clear;{기록내용을 지움}

> {난수를 만들되 각 자리값이 중복되어서는

> 안되며 중간에 0 이 있어도 안된다.}

> repeat

> comnum:=IntToStr(random(900)+100);

> Until (comnum[1]<>comnum[2]) and

> (comnum[1]<>comnum[3]) and

> (comnum[2]<>comnum[3]) and

> (comnum[1]<>'0') and

> (comnum[2]<>'0') and

> (comnum[3]<>'0');

> times:=0;

> label1.caption:='숫자를 입력하십시요';

> Edit1.Enabled:=True;

> Edit1.SetFocus;

> Edit1.SelectAll;

>

> end;

>

> procedure TForm1.Edit1KeyPress(Sender: TObject; var Key:Char);

> var

> S,B,i:inte0g0er;

> begin

> if Key<>#13 then Exit;{엔터키를 눌러야함}

> {숫자 이외의 문자가 있거나 세자리 숫자가 아닌경우}

> if (StrToIntDef(Edit1.Text,0)=0)

> or (Length(Edit1.Text)<>3) then

> begin

> label1.caption:='세자리 숫자를 입력하십시요';

> Edit1.SetFocus;

> Edit1.selectAll;

> Exit;

> end;

> times:=times+1;

> S:=0;{스트라이크}

> B:=0;{볼}

> mynum:=Edit1.Text;

> {스트라이크 개수를 센다}

> for i:=1 to 3 do

> if comnum[i]=mynum[i] then S:=S+1;

> {볼개수를 센다}

> if comnum[1]=mynum[2] then B:=B+1;

> if comnum[1]=mynum[3] then B:=B+1;

> if comnum[2]=mynum[1] then B:=B+1;

> if comnum[2]=mynum[3] then B:=B+1;

> if comnum[3]=mynum[1] then B:=B+1;

> if comnum[3]=mynum[2] then B:=B+1;

> {기록 내용을 메모로 출력한다}

>

> Memo1.Lines.Add(Format('%s=%d 스트라이크%d볼',[mynum,S,B]));

> {스트라이크가 셋이면 정답을 맞춘 것임}

> if S=3 then

> begin

> showMessage('정답을 맞추었습니다. 축하합니다.');

> Edit1.Enabled:=False;

> label1.caption:='시작버튼을 누르십시요';

> end

> else

> begin

> label1.caption:='숫자를 입력하십시요';

> Edit1.SetFocus;

> Edit1.SelectAll;

> end

> end;

>

> end.

>

>

> 6. 오류 메세지는 아래와 같습니다.

>

> Exception EClassNotFound in module game11.exe at 0000C366

> Class TButton not found.

>

>

>

> 부디 고매하신 고수님들의 하해와 같은 가르침을 기다리며

> 감히 왕초보 드립니다.

>

> 그럼 건강하시길

>
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 델초보
- •
- 2001.11.05 19:29
- 3 COMMENTS
- /
- 0 LIKES
검색결과에서 다시검색
- 김경록
  
  •
  
  2001.11.07 05:31
  
  델초보 wrote: > 파라독스 디비에서 검색을 하여 그결과값을 알았는데 그결과값에서 다시 다른조건으로 검...
- 이희정
  
  •
  
  2001.11.05 20:50
  
  델초보 wrote: > 파라독스 디비에서 검색을 하여 그결과값을 알았는데 그결과값에서 다시 다른조건으로 검...
- 이성찬
  
  •
  
  2001.11.05 19:58
  
  --; 할 수 없습니다. 디비 자체가 로컬이다 보니 일단 1차 조건으로 검색한 다음 템프파일을 만드신후 재...
- interbase
- •
- 2001.11.05 19:23
- 1 COMMENTS
- /
- 0 LIKES
Interbase에서 컬럼의 자리수를 늘리는 방법..??
- 이희정
  
  •
  
  2001.11.05 20:10
  
  interbase wrote: > 안녕하세요? > InterBase 4.2를 쓰고 있는데 어떤 테이블의 컬럼이 VARCHAR 50 자리...
- 허수아비
- •
- 2001.11.05 19:18
- 1 COMMENTS
- /
- 0 LIKES
질문: 델파이에서는 게임 에디트 프로그램
- 디스+
  
  •
  
  2001.11.05 20:44
  
  안녕하세요. 디스+입니다. 겜에디터라.... 겜에디터를 만드는데 중요한건 어떤 언어로 하는 게 중요한게 ...
- 초보
- •
- 2001.11.05 19:00
- 3 COMMENTS
- /
- 0 LIKES
이미지 로딩시간을 줄이기 위해서는.....
- 이희정
  
  •
  
  2001.11.05 21:03
  
  초보 wrote: > 이미지를 DB에 저장을 하고 불러오는 프로그램을 하고 있습니다. > 이미지를 DB에서 불러...
- 초보
  
  •
  
  2001.11.06 06:53
  
  답변을 주셔서 감사..... 지금 이미지들은 스레드를 사용하여 불러들이고 있어요.. 그런데 한번 로딩할때...
- 이희정
  
  •
  
  2001.11.06 20:11
  
  제 생각엔.. 그런 문제라면 프로그램보다는 처리하는 방식 자체를 다르게 해야하지 않을까 싶네여. ...
- 깨구락지
- •
- 2001.11.05 19:07
- 2 COMMENTS
- /
- 0 LIKES
쿼리문 작성을 도와 주십시오.
- 하눌이
  
  •
  
  2001.11.05 21:08
  
  깨구락지 wrote: > 테이블은 일자,사번,비고로 되어 있고 > 원하는 결과는 해당 기간에 사번별로 비고구...
- 깨구락지
  
  •
  
  2001.11.06 00:18
  
  SQL에 대해 더 공부 해야겠습니다. 감사합니다. 깨굴~ 하눌이 wrote: > 깨구락지 wrote: > > 테이...
- cure
- •
- 2001.11.05 10:30
- 1 COMMENTS
- /
- 0 LIKES
웹상에서 델파이로 만든것을 볼려면?...
- Ziker
  
  •
  
  2001.11.05 14:16
  
  안녕하세요 엑티브엑스(ActiveX)를 공부하시면 됩니다. 즐코되세요 cure wrote: > 델파이에서 폼...
- 운풍
- •
- 2001.11.05 05:06
- 1 COMMENTS
- /
- 0 LIKES
델파이에서 링크드 리스트 구조를 이용하려면..
- scryed
  
  •
  
  2001.11.05 23:46
  
  TList라는 클래스가 있구요. 고수들은 TList보다 Tcollection을 많이 씁니다. 델코강좌란에 List에 ...
- 정종구
- 2001.11.05 02:49
- 0 COMMENTS
- /
- 0 LIKES
컴포넌트 문제인데요... 도와주세요. ㅠ.ㅠ.
- 나지영
- 2001.11.05 02:26
- 0 COMMENTS
- /
- 0 LIKES
울트라에디트와 같은 수정기능은?
- 최준원
- •
- 2001.11.05 01:56
- 1 COMMENTS
- /
- 0 LIKES
특정위치의 dbf 파일 읽어 오기
- 벤지
  
  •
  
  2001.12.16 04:09
  
  [답변] 방금 제가 그작업를 하고 있었어요오.. 제가 사용하는 간단한 방법의 소스를 적를게요 proce...
- 박광현
- 2001.11.04 23:15
- 0 COMMENTS
- /
- 0 LIKES
원도우에서 네트워크 연결을 해제하는 방법?
- 풋내기
- •
- 2001.11.04 12:46
- 1 COMMENTS
- /
- 0 LIKES
동적 배열 질문입니다!!
- 최용일
  
  •
  
  2001.11.05 19:46
  
  안녕하세요. 최용일입니다. 에러날 이유가 없는데요... 다른 곳에서 에러가 났거나, High/Length하기...
- dskang
- 2001.11.04 06:58
- 0 COMMENTS
- /
- 0 LIKES
SQL Query 문제
- 강요한
- 2001.11.04 05:21
- 0 COMMENTS
- /
- 0 LIKES
파일저장하기
- 서영택
- •
- 2001.11.04 04:54
- 1 COMMENTS
- /
- 0 LIKES
화면 디스플레이문제
- Ziker
  
  •
  
  2001.11.05 02:47
  
  안녕하세요 폼의 속성중 오토스크롤 옵션을 해제해주시요 폼의 초기 포인트를 left, top 각각 0,0으로 ...
- 왕왕초보
- 2001.11.04 04:18
- 0 COMMENTS
- /
- 0 LIKES
엔터키를 치면 PickList가 열리게 하려면 어떻게 해야 되나요?
- 왕초보
- •
- 2001.11.04 01:50
- 1 COMMENTS
- /
- 0 LIKES
도와 주세요

간단한 게임프로그램을 책을 보고 그대로 만들었는데 실행이 되지 않습니다. 왜 그런지 이유를 모르겠습니다. 소스와 오류메세지를 아래와 같이 등록하오니 부디부디 알려주시면 정말로 감사하겠습니다. 왕초보 드림 ====================...
- Ziker
  
  •
  
  2001.11.05 02:44
  
  안녕하세요.~ 음냐.. 소스에는 버튼을 쓰는걸로 되어 있는거 같은디 실제 폼에 없는거 같은디요... ...
- EzyRyder
- •
- 2001.11.04 01:49
- 1 COMMENTS
- /
- 0 LIKES
paradox테이블에서 integer필드에 Tedit box값넣기
- 이성찬
  
  •
  
  2001.11.05 06:32
  
  두가지 가능성이 있습니다. 1. Edit1.Text 가 비어있을 경우, 즉 값이 '' 일경우 Integer값 변환시 에...
- 항상감사
- •
- 2001.11.03 23:58
- 1 COMMENTS
- /
- 0 LIKES
MDI 에서 변수 전달...
- 이성찬
  
  •
  
  2001.11.05 06:35
  
  폼내 전역 변수를 PUBLIC 에 선언하시고 각 폼의 변수에 값을 할당하실때 Form1.sS, Form2.sS 하는 식으로...
- 우리들
- •
- 2001.11.03 23:24
- 1 COMMENTS
- /
- 0 LIKES
dbGrid로 조회시 특정data display 않되게 하는 방법은...
- 김정선
  
  •
  
  2001.11.03 23:36
  
  query로 하시면 될 듯 합니다. SELECT P.NAME, D.DEPARTNAME, S.SUBDEPARTNAME, T.TITLENAME, P.PERSO...

왕초보
2001/11/04 01:50
Views266

Likes0

Comments1

Reports0
Tag List
수정
삭제
목록으로

←First Page

1510 1511 1512 1513 1514 1515 1516 1517 1518 1519

Last Page→