استخدام case مع string

[WARD.MHM]

السلام عليكم 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; 


[paix144]

و عليكم السلام و رحمة الله
بالطبع أخي و هذا باستعمال الدالة 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;

[WARD.MHM]

رااائع
اي خدمة احنا جاهزين

[syscall]

السلام عليكم

ألم يحن الوقت لوضع حد لهذه العبارة ودعم string داخل عبارة case
قسما بالله كل مابشوف عبارة case بالدلفي بتذكر تفوق السي عليها في هذا المجال وهذا يزعجني

سلامي

[cargem]

ان case..of تتعامل مع اعداد فقط
والدالة AnsiIndexStr لا تأخد سوى الترتيب العددي للكلمة
اي ان التعامل يكون مع اعداد وليس نصوص
هل يمكن ان يتعامل case هكذا

case AnsiIndexStr(i,['salem alikoum','bismi ALLAH']) of
'salem alikoum' : showmessage ('D4A');
'bismi ALLAH' : showmessage ('ward');
end;

طبعا مستحيل
ال case لا يفهم (' ')ولا space ماعدا الفاصلة ,(,)
اضف هذه الاشياء وسوف يتعامل معها


تحياتي

[cargem]

قسما بالله كل مابشوف عبارة case بالدلفي بتذكر تفوق السي عليها في هذا المجال وهذا يزعجني

هل case في c++ تتعامل مع string ?
لا اعتقد ذلك
هل تعتقد دلفي ستقف عاجزة امام case
اخي الكريم لك شي ميزان محدد
دلفي تطبق المفاهيم والنظريات العلمية ولن يقف امامها عائق

[kachwahed]

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

case مع متغير من نوع string مثلا

إذا كنا نبرمج وفق المعايير فلن نحتاج لذلك
بل أنصح بعدم استخدام هذه الطريقة
من غير اللائق الاعتماد على المتغيرات النصية للمقارنات
من بين العيوب: حالة الأحرف (Case)، الفراغات (استخدم Trim)...
كبديل استخدم أية TStrings وقارن بالـ IndexOf
بالتوفيق.

[syscall]

السلام عليكم

أسف لم اقصد ++c بل قصدت #c

[me_delphi]

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

قصدت #c

#c لغة من لغات الدوت نت واطار البرمجة الدوت نت جاء ليسهل ...لدا تجد فيه العديد من الدوال جاهزة...في بعض الأحيان لما أبرمج بالدوت نت أحس أني مستعمل ولست مبرمج !

[syscall]

السلام عليكم

في بعض الأحيان لما أبرمج بالدوت نت أحس أني مستعمل ولست مبرمج

هههه ذكرتني عندما ظهرت الدلفي لأول مرة كانوا جماعة الاسمبلي وجماعة ++c يقولون نفس هذه العبارة
ولكن دلفي سهلة الكثير من الامور على حياة المبرمج
وبنفس الوقت لا نستهين بلغة قوية مثل #c فكما يسمونها وريثة ++c

سلامي