السلام عليكم اردت صنع دليل الهاتفي الخاص بالولايات ووضعت 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.
وعليكم السلام ورحمة الله
لم توضح ما المشكل ؟
وعليكم السلام المشكل اني صنعت برنامج ارقام هاتف الولايات وعندما اعرض اي ولاية يعطيني نفس الرقم
جربت الكود فوق ويعمل عادي
يبدو المشكل من عندك
ارفق المشروع لنرى
السلام عليكم
لتفادي التكرار الممل للشرط if يمكنك عمل Table فيه ارقام الولايات و combobox فيه ارقام الولايات بالترتيب كما في المثال
حذار من الفراغات آخر الكلمة.
استعمل
if lowercase(trim(ComboBox1.text))='adrar' then
![[صورة: 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)