+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكلة في الكود دالفي (/showthread.php?tid=10001)
الصفحات:
1
2
مشكلة في الكود دالفي - salim489 - 15-01-2019
السلام عليكم اردت صنع دليل الهاتفي الخاص بالولايات ووضعت combobox و label1 وهذا هو الكود
PHP كود :
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.text='adrar' then
begin
Label1.caption:=('049 36 46 40/049 36 46 ');
end
else if ComboBox1.text='chlef' then
begin
Label1.Caption:= ('027 77 24 00');
end;
end;
end.
RE: مشكلة في الكود دالفي - محمد عبد العزيز - 15-01-2019
وعليكم السلام ورحمة الله
لم توضح ما المشكل ؟
RE: مشكلة في الكود دالفي - salim489 - 15-01-2019
وعليكم السلام المشكل اني صنعت برنامج ارقام هاتف الولايات وعندما اعرض اي ولاية يعطيني نفس الرقم
RE: مشكلة في الكود دالفي - محمد عبد العزيز - 15-01-2019
جربت الكود فوق ويعمل عادي
RE: مشكلة في الكود دالفي - salim489 - 15-01-2019
لكن يعررض نفس رقم الهاتف
RE: مشكلة في الكود دالفي - محمد عبد العزيز - 15-01-2019
يبدو المشكل من عندك
ارفق المشروع لنرى
RE: مشكلة في الكود دالفي - salim489 - 15-01-2019
![[صورة: p_1110ya09f1.png]](https://f.top4top.net/p_1110ya09f1.png)
![[صورة: p_1110ewb6d1.png]](https://a.top4top.net/p_1110ewb6d1.png)
![[صورة: p_11104lhn41.png]](https://c.top4top.net/p_11104lhn41.png)
هل فهمت قصدي
RE: مشكلة في الكود دالفي - salim489 - 15-01-2019
المشكل في الدالة if
RE: مشكلة في الكود دالفي - AX302 - 15-01-2019
السلام عليكم
لتفادي التكرار الممل للشرط if يمكنك عمل Table فيه ارقام الولايات و combobox فيه ارقام الولايات بالترتيب كما في المثال
RE: مشكلة في الكود دالفي - merouane - 15-01-2019
حذار من الفراغات آخر الكلمة.
استعمل
if lowercase(trim(ComboBox1.text))='adrar' then