[ 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
[ byTer @ 14.11.2003. 14:32 ] @
ne treba li da stavis onamo kd proveravas niz

Code:

for i = 0 to length(prilap-1)

? jer niz se proverava od indexa 0