+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استفسار حول قاعدة IF .....Then (/showthread.php?tid=5008)
استفسار حول قاعدة IF .....Then - code - 12-03-2013
السلام عليكم ورحمة الله وبركاته
اخواني الكرام
عندي قائمة 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.
استفسار حول قاعدة IF .....Then - SMP3 - 12-03-2013
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;
استفسار حول قاعدة IF .....Then - code - 12-03-2013
لكن بالنسبة لما اختار العنصر xx عند التنفيذ يظهر edit2 فقط
استفسار حول قاعدة IF .....Then - المحجوب - 13-03-2013
لماذا لا تستخدم
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');
كود :
if combobox1.ItemIndex= 0 thenلاحظ 0 يعادل 1 داخل combobox
استفسار حول قاعدة IF .....Then - code - 13-03-2013
بيض الله وجهك اخي المحجوب الكود يعمل
شكرا لك
استفسار حول قاعدة IF .....Then - S.FATEH - 14-03-2013
@المحجوب في هذهة الحالة استخدام جملة Case افضل و احسن
كود :
case ComboBox1.itemIndex of
0: Edit1.Text := '00000';
1: Edit1.Text := '11111';
end;