[ OrdeB @ 17.11.2003. 20:45 ] @
zdravo na site. Vetuvam deka povejce nema da dosaduvam so ovoj kod no sepak mi treba pomos. Eve go kodot: Code: procedure TForm1.Button1Click(Sender: TObject); var i:integer; A:char; begin A:='A'; for i:=1 to length(prilap) do begin if A=prilap[i] then zbor1[i]:=A else DNoga.Visible := false end; zbor.Caption:=zbor1; end; end. Iako A=prilap sepak dnoga.visible:=false sekogas se ostvaruva. Sto moze da mi e problemot ? ? ? |