السلام عليكم ورحمتة الله وبركاته
كيف يمكن ان نجد طول سلسيلة حرفي
مثال الفريق العربي للبرمجة كم عدد الحرف في هذا الجملة
20
طول السلسلة........
مغلق
var I,j:Integer; str,str2:String; begin j:=1; str:=Edit1.Text; str2:=Edit1.Text; for I:=1 to StrLen(Pchar(Edit1.Text)) do begin if str<>' ' then begin str2[j]:=str; j:=j+1; end; end; str2[j]:=str[StrLen(Pchar(str))+1]; Label1.Caption:=IntToStr(StrLen(PChar(str2))); end;
جرب هذا
..................بسم الله الرحمن الرحيم..................
وتعاونوا على البر والتقوى ولا تعاونوا على الإثم والعدوان
.............................................................................................................................
سلسلة تعلم برمجة Pascal , تعلم اساسيات الباسكال
التحكم بمنفذ الطابعة عن طريق الدلفي
سلسلة دروس تعلم قواعد بيانات Midas
أفكار سريعة, مجموعة شفرات صغيرة وفاعله لدلفي
كتب + مواقع ::: مراجع مهمة للغة دلفي, مجموعة كتب مجانية + مواقع مفيدة
مكتبه الأكواد, أكواد وبرامج دلفي
.............................................................................................................................
هل تقصد
ShowMessage(IntToStr(Lenght('hello world')));ام لم افهم السؤال بشكل صحيح؟
لا تحزن:
إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.
لا تحزن:
فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.
بسيطة
length(s)
تعيد الداله Length طول السلسلة
نعم اخي سيف الدين هذا هو المطلوب :lol:
وبارك الله فيك
وشكراً لكل من ORWA و محمد نسمان وبارك الله فيكم B)
هذا الموضوع مغلق.