hangman againKoga 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
Secret hacker rule #11: hackers read manuals.
Re: hangman again