+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : سلسلة نصية مكونة من ألف محرف (/showthread.php?tid=2620)
سلسلة نصية مكونة من ألف محرف - Delphawi - 01-12-2010
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
أحاول عمل برنامج (Console) يقوم بعمل Loop على عدد مكون من 1000 خانة , ويضع كل خانة في مصفوفة مكونة من ألف عنصر
المشكلة أنني لم استطع إيجاد طريقة لحفظ هذا العدد كله في دلفي , حاولت مع النوع String و WideString لكن يظل يظهر تلميح "String is too long" , وعند تشغيل البرنامج يضع جميع عناصر المصفوفة = صفر . لكن عند تقليل حجم الرقم إلى 230 خانة مثلاً فإن البرنامج يعمل بشكل سليم !
وجزاكم الله خيراً
سلسلة نصية مكونة من ألف محرف - kachwahed - 01-12-2010
وعليكم السلام ورحمة الله وبركاته
إقتباس :String is too longالأصل التعامل مع النصوص باستخدام المؤشرات: PChar (كما هو الحال في C)
دلفي يعرف string لتسهيل العملية...
لا يمكن التعويل على الـ string في كل الحالات
استخدم PChar أو توقف عند:
كود :
string[255]سلسلة نصية مكونة من ألف محرف - Delphawi - 01-12-2010
شكراً أخي , لكن ممكن توضيح أكثر أو مثال بسيط لربط String مع PChar ثم استعمال ؟
سلسلة نصية مكونة من ألف محرف - kachwahed - 01-12-2010
إقتباس :مثال بسيط لربط String مع PChar ثم استعمال ؟انسى string... أكتب مثال لما تود عمله.
سلسلة نصية مكونة من ألف محرف - Delphawi - 02-12-2010
كود :
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 , للفائدة
وجزاك الله خيراً