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

[kachwahed]

السلام عليكم
طريقة أخرى...

PHP كود :

var
  Form1: TForm1;
  Country: array[0..2] of string = ('الجزائر', 'مصر', 'السودان');
  City: array[0..2, 1..2] of string = (('عنابة', 'وهران') ,('القاهرة', 'الاسكندرية'),('الخرطوم', 'الأبيض'));

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i:= Low(Country) to High(Country) do ComboBox1.Items.Add(Country[i]);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  i: Integer;
begin
  ComboBox2.Clear;
  for i:= Low(City[ComboBox1.ItemIndex]) to High(City[ComboBox1.ItemIndex]) do
    ComboBox2.Items.Add(City[ComboBox1.ItemIndex, i]);
end; 


بالتوفيق.