권부용 wrote:

> 안녕하세요!

> 프로그램을 하나 만들려고 하는데 워낙 아는게 없어서요.

> 야구 게임 아세요?

> 왜 예를 들면 두사람이서 상대방이 모르는 숫자를 각자 씁니다

> 예를들면124 상대방은 내가 모르는 다른숫자 세자리 상대방이 제가 임으로 쓴 숫자를 ]

> 맞추려고 155이런 식을로 숫자를 부릅니다.상대방이 부른 숫자중에

> 내가 쓴숫자중에서 하나가 같았을때 세자리 숫자의 경우 원스트라이크투볼,

> 두개가 맞았을 경우에는 투스트라이크원볼 다맞추면 종료돼는

> 프로그램을 만들려고 하는데 어떻게 시작해야 할지 막막합니다

> 조언 좀 부탁합니다

> 아니면 프로그램을 해서 한번 보여주셔도 좋고요

> 부탁합니다 제발!!!



edit 3개와 command버튼을 폼에 디자인한후에..

아래 코드를 넣으시면 될꼬에요.



procedure TForm1.Button1Click(Sender: TObject);

var

i, j, Strike, Ball: Integer;

begin

for i := 1 to Length(edit1.text) do

begin

for j := 1 to Length(edit2.text) do

begin

if Copy(edit1.text, i, 1) = Copy(edit2.text, j, 1) then

if i = j then

Strike := Strike + 1

else

Ball := Ball + 1;

end;

end;



edit3.text := IntToStr(Strike) + ' Strike ' + IntToStr(Ball) + ' Ball';

if Strike = 3 then

ShowMessage('축하합니다!! 맞췄어용^^')

else

begin

edit2.SetFocus;

edit2.selstart := 0;

edit2.sellength := 3;

end;

end;