[ 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 ? ? ?
[ morlic @ 17.11.2003. 21:18 ] @
Ako ti je prilap = 'AAB' a A = 'A' onda:


Za i = 1 => A=prilap - OK
Za i = 2 => A=prilap - OK
Za i = 3 => A=prilap - Nije Ok pa se izvrsava DNoga.Visible := false

Sada je pitanje sta u stvari hoces da uradis?