procedure TCustomeredit.DBComboBox1Change(Sender: TObject);
begin
Customeredit.Caption:='MUŞTERİ KAYIT DEFTERİ';
if (DBComboBox1.Text='ADANA') then; // !! Burada ; olmaz.
Begin
DBListbox1.Items.Clear;
DBListbox1.Items.Add('CEYHAN');
DBListbox1.Items.Add('SEYHAN');
end
else if (DBComboBox1.Text='ADIYAMAN') then; // !! Burada ; olmaz.
Begin
DBListbox1.Items.Clear;
DBListbox1.Items.Add('MERKEZ');
end;

end.

Arkadaşlar bu kod calışmıyor, "else if" olduğu yerde hata veriyor, DELPHİ'ye gore orada else değil end olması gerekiyormuş.

07.03.2008 arkadaşlar calışmama nedenini duzelttim, hataların nerden kaynaklandığını yanlarına yazdım Fazla calışmaktan boyle bir hata yapmışım diyelim
__________________