السلام عليكم 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;
و عليكم السلام و رحمة الله
بالطبع أخي و هذا باستعمال الدالة
AnsiIndexStr للوحدة
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;
رااائع
اي خدمة احنا جاهزين
السلام عليكم
ألم يحن الوقت لوضع حد لهذه العبارة ودعم string داخل عبارة case
قسما بالله كل مابشوف عبارة case بالدلفي بتذكر تفوق السي عليها في هذا المجال وهذا يزعجني
سلامي
ان case..of تتعامل مع اعداد فقط
والدالة AnsiIndexStr لا تأخد سوى الترتيب العددي للكلمة
اي ان التعامل يكون مع اعداد وليس نصوص
هل يمكن ان يتعامل case هكذا
إقتباس : case AnsiIndexStr(i,['salem alikoum','bismi ALLAH']) of
'salem alikoum' : showmessage ('D4A');
'bismi ALLAH' : showmessage ('ward');
end;
طبعا مستحيل
ال case لا يفهم (' ')ولا space ماعدا الفاصلة ,(,)
اضف هذه الاشياء وسوف يتعامل معها
تحياتي
إقتباس :قسما بالله كل مابشوف عبارة case بالدلفي بتذكر تفوق السي عليها في هذا المجال وهذا يزعجني
هل case في c++ تتعامل مع string ?
لا اعتقد ذلك
هل تعتقد دلفي ستقف عاجزة امام case
اخي الكريم لك شي ميزان محدد
دلفي تطبق المفاهيم والنظريات العلمية ولن يقف امامها عائق
السلام عليكم
أسف لم اقصد ++c بل قصدت #c
وعليكم السلام ورحمة الله
إقتباس :قصدت #c
#c لغة من لغات الدوت نت واطار البرمجة الدوت نت جاء ليسهل ...لدا تجد فيه العديد من الدوال جاهزة...في بعض الأحيان لما أبرمج بالدوت نت أحس أني مستعمل ولست مبرمج !
السلام عليكم
إقتباس :في بعض الأحيان لما أبرمج بالدوت نت أحس أني مستعمل ولست مبرمج
هههه ذكرتني عندما ظهرت الدلفي لأول مرة كانوا جماعة الاسمبلي وجماعة ++c يقولون نفس هذه العبارة
ولكن دلفي سهلة الكثير من الامور على حياة المبرمج
وبنفس الوقت لا نستهين بلغة قوية مثل #c فكما يسمونها وريثة ++c
سلامي