Checkbox

[vedatkaba]

procedure TForm7.bak;
var
i:integer;
begin
for i:=0 to componentcount-1 do
begin
if components is Tcheckbox then
begin
if form2.Table2.FieldByName('EVRAK').AsString=(components as tcheckbox).Caption then
begin
tcheckbox(components).Enabled:=false;
end;
end;
end;
end;
end.

Böyle bir procedure yazdım...Yapmak istediğim şey tüm checkboxların captionları ile tabloda ki kayıtları karşılaştırıp eğer kayıt varsa chackboxın enabled özelliği false olsun.çalıştırdım ama sadece ilk checkbox a bakıp döngüden çıktı sorun nerde sizce ?
Çok acele fikir istiyorum.Siz değerli arkadaşlarıma kolay gelsin...

[Fatih!]

Kod: Tümünü seç

procedure TForm7.bak; 
var 
i:integer; 
begin 
Table2.first;
while not Table2.eof do
begin 
for i:=0 to componentcount-1 do 
begin 
if (components[i] is Tcheckbox) and (form2.Table2.FieldByName('EVRAK').AsString=(components[i] as tcheckbox).Caption) then 
begin 
tcheckbox(components[i]).Enabled:=false; 
Table2.next;
end; end; 
      end.   end. 

bunu dene

[vedatkaba]

çok güzel oldu....

Herkese teşekkür ederim.......


Başarılar dilerim, Delphi ile olan hayatınızda.........