سلسلة نصية مكونة من ألف محرف
#1
بسم الله الرحمن الرحيم

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

أحاول عمل برنامج (Console) يقوم بعمل Loop على عدد مكون من 1000 خانة , ويضع كل خانة في مصفوفة مكونة من ألف عنصر

المشكلة أنني لم استطع إيجاد طريقة لحفظ هذا العدد كله في دلفي , حاولت مع النوع String و WideString لكن يظل يظهر تلميح "String is too long" , وعند تشغيل البرنامج يضع جميع عناصر المصفوفة = صفر . لكن عند تقليل حجم الرقم إلى 230 خانة مثلاً فإن البرنامج يعمل بشكل سليم !

وجزاكم الله خيراً
الرد
#2
وعليكم السلام ورحمة الله وبركاته
إقتباس :String is too long
الأصل التعامل مع النصوص باستخدام المؤشرات: PChar (كما هو الحال في C)
دلفي يعرف string لتسهيل العملية...
لا يمكن التعويل على الـ string في كل الحالات
استخدم PChar أو توقف عند:
كود :
string[255]
الرد
#3
شكراً أخي , لكن ممكن توضيح أكثر أو مثال بسيط لربط String مع PChar ثم استعمال ؟
الرد
#4
إقتباس :مثال بسيط لربط String مع PChar ثم استعمال ؟
انسى string... أكتب مثال لما تود عمله.
الرد
#5
كود :
Str := '...1000 char...' ; for i := 1 to length(Str) do writeln(MidStr(Str,i,1)
هذا كان يسبب مشكلة عدم ظهور الأحرف
لكن الحمد لله , قمت بتحويله إلى الشكل :
كود :
Str := '...50 Char...' + '...50 Char...' + .......... '...50 Char...' ; for i := 1 to length(Str) do writeln(MidStr(Str,i,1)
الحمد لله عمل بنجاح

هل يمكن وضع مثال لاستخدام نوع PChar , للفائدة Smile وجزاك الله خيراً
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 2 ) ضيف كريم