delphi4arab منتديات دلفي للعرب

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

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

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

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

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

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

إقتباس :String is too long

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

كود :
string[255]

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

إقتباس :مثال بسيط لربط String مع PChar ثم استعمال ؟

انسى string... أكتب مثال لما تود عمله.

كود :
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

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

Delphawi

kachwahed

Delphawi

kachwahed

Delphawi