استفسار حول قاعدة IF .....Then

[code]

السلام عليكم ورحمة الله وبركاته

اخواني الكرام
عندي قائمة combobox وفيها عناصر وعندي 3 edit
استخدمت قاعدة if لما اختار عنصر ينفذ لي بالثلاث edit نفذ لي واحد فقط وهذا الكود

PHP كود :

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.text = 'xxx' then
begin
Edit1.Text:=('kakakkakakakakkaka');
Edit2.Text:=('hahahahahahahahahha');
Edit3.Text:=('hahhahahahggggggggg');
end;
end;
end. 


[SMP3]

PHP كود :

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 if combobox1.text = 'xxx' then
begin
Edit1.Text:=('kakakkakakakakkaka');
Edit2.Text:=('hahahahahahahahahha');
Edit3.Text:=('hahhahahahggggggggg');

end
else if combobox1.text='bbb' then
begin
Edit1.Text:=('bbbbbbbbbbbbb');
Edit2.Text:=('bbbbbbbbbbbbbbbb');
Edit3.Text:=('bbbbbbb');
end;
end; 


[code]

لكن بالنسبة لما اختار العنصر xx عند التنفيذ يظهر edit2 فقط

[المحجوب]

لماذا لا تستخدم

PHP كود :

if combobox1.ItemIndex= 0 then
begin
Edit1.Text:=('kakakkakakakakkaka');
Edit2.Text:=('hahahahahahahahahha');
Edit3.Text:=('hahhahahahggggggggg');
end
else if combobox1.ItemIndex=1 then
begin
Edit1.Text:=('bbbbbbbbbbbbb');
Edit2.Text:=('bbbbbbbbbbbbbbbb');
Edit3.Text:=('bbbbbbb'); 


لتحديد السطر المراد اختيارة في combobox عبر

كود :

if combobox1.ItemIndex= 0 then

وتضع الاسماء داخل strings
لاحظ 0 يعادل 1 داخل combobox

[code]

بيض الله وجهك اخي المحجوب الكود يعمل

شكرا لك

[S.FATEH]

@المحجوب في هذهة الحالة استخدام جملة Case افضل و احسن

كود :

case ComboBox1.itemIndex of 0: Edit1.Text := '00000'; 1: Edit1.Text := '11111'; end;