Dbcombobox için procedure yazcam ??

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
Karinca
Üye
Mesajlar: 239
Kayıt: 25 Ağu 2004 07:06
Konum: http://localserver/
İletişim:

Dbcombobox için procedure yazcam ??

Mesaj gönderen Karinca »

Slmn Alykm;

DbCombobox1.items.Add(ibdt.fieldbyname('ADI').assitring); // idbdt = IBDATASET

veya da if dbedit1.text = '' then DbCombobox1.items...... diye ekliyorum.

Sorun Olan item eklemek değil. Bu dbCombobox a duruma göre 10 a kadar item ekleyeceğim. bir DBedit olayını exit eventinde bu işlemi yapıyorum. Ve bu DBCombobox un itemleri 2 durum için yazdığımda baya bi kalabalıklık yapıyo. Diğer kontrolleri de yapacam derken kontrolden çıkıyo kod. Bunun için Procedure yazayım dedim. Sonra tek satırla başka bi yerden çağırayım dedim.

Privateden önce;

Kod: Tümünü seç

Procedure itemekle( RzDbCombobox1: TRzDbComboBox; ibdt: TIBDataSet;
  alan: string);
diye procedure yazayım dedim.


sonra kod bölümünde ikende

Kod: Tümünü seç

procedure itemekle(RzDbCombobox1: TRzDbComboBox; ibdt: TIBDataSet;
  alan: string);
begin
 RzDbCombobox1.Items.Clear;
 RzDbCombobox1.Items.Add('aaa');
.....
end;
diye devam edecek ama
[Error] ck.pas(152): Unsatisfied forward or external declaration: 'TceK.itemekle'
diye hata veriyo. Yanlış olan nedir? Nasıl yapabilirim?



Selamlar...
En son Karinca tarafından 25 Eki 2005 04:30 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
cihana hakan olmak bir kuru kavga imiş
bir mürşide bende olmak cümleden evla imiş
h.z. Fatih


Resim
Kullanıcı avatarı
Karinca
Üye
Mesajlar: 239
Kayıt: 25 Ağu 2004 07:06
Konum: http://localserver/
İletişim:

Mesaj gönderen Karinca »

@Query Hocamın yardımıyla sonradan bu şekilde değiştirdik... Düzeldi :)

Kod: Tümünü seç

procedure doldur( Rzdbcombobox1 : TrzDbCombobox; a : String);
begin
 RzDbCombobox1.Items.Clear;
 RzDbCombobox1.Items.Add(a);
 ShowMessage(RzDbCombobox1.Items[0]);
end;
Privatenin üstüne tanımlamamıza gerek yokmuş;


Sonra başka bi yerde çağırırkende
doldur(RzDBComboBox1,'ww');
Gibi Çağırılacak.

Ben Delphi 7 kullanıorum. Belki ondan olabilir...
Kolay Gelsin...



Selamlar...
cihana hakan olmak bir kuru kavga imiş
bir mürşide bende olmak cümleden evla imiş
h.z. Fatih


Resim
Cevapla