hangman again
14.11.2003. u 09:45 · pre 279 meseci
#1
pak sakam da prasam nesto vo vrska so ovaa igra.
Koga nekoj ce pritisne na button1 go imam ova :
No dnoga.visible:=false sekogas se ostvaruva a zbor.caption:=dzbor+mesto+dcrta
sekogas izgleda nesto vaka _ _ a _ _ _ _ _ _ _.
Ima edna plus crticka a i slikata dnoga se gubi iako bukvata A ja ima vo zborot.
Moze li nekoj da mi kaze kade mi e greskata ? ? ?
Fala
Koga nekoj ce pritisne na button1 go imam ova :
Code:
procedure TForm1.Button1Click(Sender: TObject);
var a:char;
i:integer;
begin
a:='a';
for i:=1 to length(prilap) do begin
if a = prilap[i] then
begin
dzbor[i]:=a;
zbor.Caption:=dzbor+mesto+dcrta;
end
else if a <> prilap[i] then
dnoga.Visible:=false;
end;
end;
end.
procedure TForm1.Button1Click(Sender: TObject);
var a:char;
i:integer;
begin
a:='a';
for i:=1 to length(prilap) do begin
if a = prilap[i] then
begin
dzbor[i]:=a;
zbor.Caption:=dzbor+mesto+dcrta;
end
else if a <> prilap[i] then
dnoga.Visible:=false;
end;
end;
end.
No dnoga.visible:=false sekogas se ostvaruva a zbor.caption:=dzbor+mesto+dcrta
sekogas izgleda nesto vaka _ _ a _ _ _ _ _ _ _.
Ima edna plus crticka a i slikata dnoga se gubi iako bukvata A ja ima vo zborot.
Moze li nekoj da mi kaze kade mi e greskata ? ? ?
Fala
Potpis
Secret hacker rule #11: hackers read manuals.
Re: hangman again