delphi4arab منتديات دلفي للعرب

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

اخواني الكرام
عندي قائمة 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. 

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; 

لكن بالنسبة لما اختار العنصر 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

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

شكرا لك

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

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

code

SMP3

code

المحجوب

code

S.FATEH