الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يمكن تقسيم String value و التعامل معها حرف حرف

مغلق
بدأه Dream_Works في 15 أبريل 2003 · 5 رد · 1,156 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

أرجو مساعدتي لكتابة برنامج يطلب من المستخدم كتابة ستة جمل ثم يقوم بترتيبها من (الجمل التي تحتوي العدد الأكبر من المسافات الى الجمل التى تحتوي العدد الأصغر من المسافات) ومن ثم تحويل المسافات الى نجوم عند العرض

لذلك أرجو معرفة طريقة تقسيم الجملة بعد كتابتها الى حروف حتى يتم ترتيبها و التأكد منها و تحويل بعض حروفها الى حروف أخرى

200px-Dreamworks.jpg
#2

اخي الكريم

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

ان كنت تقصد الوصول الى حرف معين في الجملة فان دالة Copy تفي بالغرض ان شاء الله

مثال :

نريد الوصول الى الحرف الرابع من اسمك الكريم " karkoor "

var MyS : String;
begin
MyS := 'karkoor';
ShowMessage(Copy(MyS,4,1));

تقبل تحياتي

#3

مشكووووووووووووووور على هذه المعلومة الرائعة لكن هل توجد طريقة لتبديل الحرف المطلوب بحرف آخر ;)

200px-Dreamworks.jpg
#4

سلام

هنا عدة طرق لتبديل حرف مطلوب مكان آخر ...هذة احدى الطرق:

var str :String;
     i : Integer;
Begin
  str := '2 + 3 = 6';
For i:= 1 TO Length(str) Do
  If str = '+' Then
     str := '*';

 showmessage(str);
End;

في الكود اعلاه سيتم استبدال الحرف + ب * علما ان الحرف + هو الحرف الثالت في الجملة

:)

#5

مشكووووور .............. بهالطريقة البرنامج خالص بفضل مساعداتكم :)

200px-Dreamworks.jpg
#6

الفضل لله اولا واخيراً

هذا الموضوع مغلق.

مواضيع مشابهة