مشاكل الكومبو بوكس

[m_m_saad]

استخدم 3 كمبو بوكس
الاول به مصر - السودان - الجزائر - الخ
الثاني به القاهرة - الخرطوم -طرابلس
الثالث به اسماء احياء القاهرة والخرطوم

لما اختار علي مصر يظهر لي في الثاني القاهرة و مدن مصر
ولما اختار علي القاهرة تظهر لي احياء القاهرة فقط

هذه كل المشكله
هل يوجد طريقة غير معقدة لعمل ذلك

الطريقة المعتادة
اني اعمل

كود :

if combobox1.itemindex=0 then Combobox2.items.Clear; Combobox2.items.Add('القاهرة

ولكن هذا مرهق وذلك لان اعمل هذا في كل الاختيارات بالكامل

احاول استخدمه لتحقيق نفس الهدف

كود :

procedure TForm1.ComboBox1Change(Sender: TObject); begin if combobox1.itemindex=0 then begin if combobox2.itemindex=1 then begin combobox3.ItemIndex:=1 end; end; end;

الغريب انه يعطيني رساله خطأ في سطر فارغ تماما
و رساله الخطأ تقول
declaration expected but end of file found