+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استخدام case مع string (/showthread.php?tid=3424)
الصفحات:
1
2
استخدام case مع string - WARD.MHM - 18-09-2011
السلام عليكم iهل يمكن استخدام جملة case مع متغير من نوع string مثلا
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var i : string;
begin
i := edit1.text;
case i of
'1' : showmessage ('1');
'2' : showmessage ('2');
'ward' : showmessage ('ward');
end;
end;
استخدام case مع string - paix144 - 18-09-2011
و عليكم السلام و رحمة الله
بالطبع أخي و هذا باستعمال الدالة AnsiIndexStr للوحدة StrUtils
كود :
Uses StrUtils;
...كود :
procedure TForm1.Button1Click(Sender: TObject);
var
i : string;
begin
i := edit1.text;
case AnsiIndexStr(i,['salem alikoum','bismi ALLAH']) of
0 : showmessage ('D4A');
1 : showmessage ('ward');
end;
end;استخدام case مع string - WARD.MHM - 18-09-2011
رااائع
اي خدمة احنا جاهزين
استخدام case مع string - syscall - 27-10-2011
السلام عليكم
ألم يحن الوقت لوضع حد لهذه العبارة ودعم string داخل عبارة case
قسما بالله كل مابشوف عبارة case بالدلفي بتذكر تفوق السي عليها في هذا المجال وهذا يزعجني
سلامي
استخدام case مع string - cargem - 27-10-2011
ان case..of تتعامل مع اعداد فقط
والدالة AnsiIndexStr لا تأخد سوى الترتيب العددي للكلمة
اي ان التعامل يكون مع اعداد وليس نصوص
هل يمكن ان يتعامل case هكذا
إقتباس : case AnsiIndexStr(i,['salem alikoum','bismi ALLAH']) ofطبعا مستحيل
'salem alikoum' : showmessage ('D4A');
'bismi ALLAH' : showmessage ('ward');
end;
ال case لا يفهم (' ')ولا space ماعدا الفاصلة ,(,)
اضف هذه الاشياء وسوف يتعامل معها
تحياتي
استخدام case مع string - cargem - 27-10-2011
إقتباس :قسما بالله كل مابشوف عبارة case بالدلفي بتذكر تفوق السي عليها في هذا المجال وهذا يزعجنيهل case في c++ تتعامل مع string ?
لا اعتقد ذلك
هل تعتقد دلفي ستقف عاجزة امام case
اخي الكريم لك شي ميزان محدد
دلفي تطبق المفاهيم والنظريات العلمية ولن يقف امامها عائق
استخدام case مع string - kachwahed - 27-10-2011
وعليكم السلام ورحمة الله
إقتباس :case مع متغير من نوع string مثلاإذا كنا نبرمج وفق المعايير فلن نحتاج لذلك
بل أنصح بعدم استخدام هذه الطريقة
من غير اللائق الاعتماد على المتغيرات النصية للمقارنات
من بين العيوب: حالة الأحرف (Case)، الفراغات (استخدم Trim)...
كبديل استخدم أية TStrings وقارن بالـ IndexOf
بالتوفيق.
استخدام case مع string - syscall - 28-10-2011
السلام عليكم
أسف لم اقصد ++c بل قصدت #c
استخدام case مع string - me_delphi - 29-10-2011
وعليكم السلام ورحمة الله
إقتباس :قصدت #c
#c لغة من لغات الدوت نت واطار البرمجة الدوت نت جاء ليسهل ...لدا تجد فيه العديد من الدوال جاهزة...في بعض الأحيان لما أبرمج بالدوت نت أحس أني مستعمل ولست مبرمج !
استخدام case مع string - syscall - 31-10-2011
السلام عليكم
إقتباس :في بعض الأحيان لما أبرمج بالدوت نت أحس أني مستعمل ولست مبرمجهههه ذكرتني عندما ظهرت الدلفي لأول مرة كانوا جماعة الاسمبلي وجماعة ++c يقولون نفس هذه العبارة
ولكن دلفي سهلة الكثير من الامور على حياة المبرمج
وبنفس الوقت لا نستهين بلغة قوية مثل #c فكما يسمونها وريثة ++c
سلامي