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);
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 hata veriyo. Yanlış olan nedir? Nasıl yapabilirim?[Error] ck.pas(152): Unsatisfied forward or external declaration: 'TceK.itemekle'
Selamlar...