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.
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 ? ? ?
Secret hacker rule #11: hackers read manuals.