سلسلة نصية مكونة من ألف محرف

[Delphawi]

بسم الله الرحمن الرحيم


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

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

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

وجزاكم الله خيراً

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
String is too long
الأصل التعامل مع النصوص باستخدام المؤشرات: PChar (كما هو الحال في C)
دلفي يعرف string لتسهيل العملية...
لا يمكن التعويل على الـ string في كل الحالات
استخدم PChar أو توقف عند:
string[255]

[Delphawi]

شكراً أخي , لكن ممكن توضيح أكثر أو مثال بسيط لربط String مع PChar ثم استعمال ؟

[kachwahed]

مثال بسيط لربط String مع PChar ثم استعمال ؟
انسى string... أكتب مثال لما تود عمله.

[Delphawi]

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 , للفائدة :) وجزاك الله خيراً