component isimlerini değişkene atamak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
zayfin
Üye
Mesajlar: 24
Kayıt: 19 Haz 2003 07:04
Konum: istanbul
İletişim:

component isimlerini değişkene atamak

Mesaj gönderen zayfin »

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
teşekkürler
sağlıcakla kalın
Kullanıcı avatarı
fahrettin
Admin
Mesajlar: 2619
Kayıt: 11 Haz 2003 10:38
Konum: İstanbul
İletişim:

Mesaj gönderen fahrettin »

cikis yolu var tabi ki:

xx degiskenini TEdit tipinde tanimlarsaniz.

xx:=Edit1;
xx.text:='ahmet'

seklinde calisacaktir.
Kullanıcı avatarı
zayfin
Üye
Mesajlar: 24
Kayıt: 19 Haz 2003 07:04
Konum: istanbul
İletişim:

Mesaj gönderen zayfin »

ş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ürler
sağlıcakla kalın
Kullanıcı avatarı
fahrettin
Admin
Mesajlar: 2619
Kayıt: 11 Haz 2003 10:38
Konum: İstanbul
İletişim:

Mesaj gönderen fahrettin »

Kod: Tümünü seç

ss1+'_1'.state
ile xxxxxx_1 isimli componente erisip onu kullanamazsiniz. ismi string olarak elinizde olan bir component uzerinde islem yapabilmek icin su kodu kullanabilirsiniz.

Kod: Tümünü seç

  TCheckBox(Form1.FindComponent('Checkbox1')).State:=cbchecked;
Bu kodda string olan 'Checkbox1' yerine component ismini yazabilirsiniz. Mesela bir dongu icinde
'Checkbox'+IntToSt(i) seklinde bir kullanimla 'Checkbox1' , 'Checkbox2', 'Checkbox3' u de elde ederek kullanabilirsiniz.

Kolay gelsin...
Kullanıcı avatarı
MicroChip
Kıdemli Üye
Mesajlar: 1119
Kayıt: 02 Ağu 2003 01:02
Konum: İstanbul
İletişim:

Mesaj gönderen MicroChip »

Teşekkür ederim... 3 yıldır delphi kullanmıyorum (ekran kartımdan dolayı visual basic kullanıyorum ve bir de askerlik olayları işte)

Görüşmek üzere tekrar saolun
Kafkas Kartalı Kabarday
Sitesi!= http://www.ahmetceylan.com
Resim
Cevapla