[ OrdeB @ 14.11.2003. 09:45 ] @
pak sakam da prasam nesto vo vrska so ovaa igra. 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. 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 |