السلام عليكم
شو هوو التابع يلي بيحول من قيمة نصية الى محرفية
var a: array [0..255] of char; i:integer; s,s1:string; begin s:='ABCDE'; for i:= 1 to Length(s) do begin s1:=(leftStr(s,1)); a[i-1]:=??????????التابع المطلوب للسلسلة s1 s:=RightStr(s,length(S)-1); listbox1.Items.Add(a[i-1]); end;end;
هادا الكود بياخد المحارف الموجودة بالسلسلة النصية و بيحط كل محرف ضمن عنصر مصفوفة :: والمشكلة انو ما قدرت حول من نص الى محرف
..:: ولكم جزيل الشكر ::..
وعليكم السلام
تريد تقسيم جملة او كلمة String الى حروف Char ؟
اما ماذا ؟
وضح ولو بمثال بسيط المطلوب والنتيجة المراد الحصول عليها
هادا هو المطلوب
تقسيم سلسلة نصية الى محارف كل محرف على حدى
اقتباسوضح ولو بمثال بسيط المطلوب والنتيجة المراد الحصول عليها
النتيجة بعد ما احصل على المحارف بشكل مصفوفة
بدي أخد شيفرة الاسكي لكل محرف سوي عملية حسابية عليه
وبعدين رجعو بطريقة عكسية
يعني:
السلسة النصية :: 'ABC'
المحارف :: A
B
C
ترميز أسكي :: 65
66
67
Var i:integer; s:string; begin s:=Edit1.Text; ListBox1.Clear; ListBox2.Clear; For i:= 1 To Length(s) Do Begin ListBox1.Items.Add(s); ListBox2.Items.Add(IntToStr(Ord(s))); End; end;
اسال عن الجزء الذي لم تفهمه
لا تستطيع التحويل من string الى char لان string هو عبارة عن سلسلة من char
اما اذا كان string طوله واحد فلا تحتاج للتحويل لانه يعتبر char اصلا
مشكورين يا شباب
مشي الحال يسلمو هال الأفكار
في طريقة تانية هيية عن طريق Edit1KeyPress
بأخد كل حرف و بحطو ضمن مصفوفة وبعدين بحولو..
بس على رأي المثل :: وين دانك
كلكون زوق يا شباب و يعطيكون العافية
سلام عليكم
هذا الموضوع مغلق.