selam
herkese kolay gelsin
sorunum şöyle:
bir editbox ım var onun ismini bir değişkene atıyorum örnek
xx:='edit1';
xx.text:='ahmet';
ancak böyle yapınca sorun çıkıyor bunun bir çıkış yolu var mıdır?
teşekkürler
component isimlerini değişkene atamak
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
component isimlerini değişkene atamak
teşekkürler
sağlıcakla kalın
sağlıcakla kalın
şimdi kodumu kopyalıyayım sorunumu tam anlarsınız
teşekkür ederim.
procedure Tfralt003_.yetkidon(ss:string; ss1:tcheckbox; var oku,yaz,sil:string);
begin
oku:=copy(kullaniciset.fieldbyname(ss).asstring,1,1);
yaz:=copy(kullaniciset.fieldbyname(ss).asstring,2,1);
sil:=copy(kullaniciset.fieldbyname(ss).asstring,3,1);
if oku='1' then ss1+'_1'.state:=cbChecked;
if yaz='1' then ss1+'_2'.state:=cbChecked;
if sil='1' then ss1+'_3.state:=cbChecked;
end;
anlayacağınız üzere procedure bir değer gönderiyorum fakat 3 sonuç almak istiyorum.
ss1=benim gnderdiğim obje ismi.
aynı objelerden 3 tane olduğu için burada işlemi halletmek istiyorum
oku- yaz - sil kafanızı karıştırmasın
teşekkür ederim.
procedure Tfralt003_.yetkidon(ss:string; ss1:tcheckbox; var oku,yaz,sil:string);
begin
oku:=copy(kullaniciset.fieldbyname(ss).asstring,1,1);
yaz:=copy(kullaniciset.fieldbyname(ss).asstring,2,1);
sil:=copy(kullaniciset.fieldbyname(ss).asstring,3,1);
if oku='1' then ss1+'_1'.state:=cbChecked;
if yaz='1' then ss1+'_2'.state:=cbChecked;
if sil='1' then ss1+'_3.state:=cbChecked;
end;
anlayacağınız üzere procedure bir değer gönderiyorum fakat 3 sonuç almak istiyorum.
ss1=benim gnderdiğim obje ismi.
aynı objelerden 3 tane olduğu için burada işlemi halletmek istiyorum
oku- yaz - sil kafanızı karıştırmasın
teşekkürler
sağlıcakla kalın
sağlıcakla kalın
Kod: Tümünü seç
ss1+'_1'.state
Kod: Tümünü seç
TCheckBox(Form1.FindComponent('Checkbox1')).State:=cbchecked;
'Checkbox'+IntToSt(i) seklinde bir kullanimla 'Checkbox1' , 'Checkbox2', 'Checkbox3' u de elde ederek kullanabilirsiniz.
Kolay gelsin...