مصفوفة ديناميكية لا تغير قيمها

الخطأ يكمن في هذه العبارة

setLength(da,sizeof(po));

لأن sizeof(po) سترجع دائما القيمة 4 مهما كان نوع المؤشر PO.

نفذ هذا السطر لتتأكد, وعرف مسبقا po كما تشاء من أصناف المؤشرات:

   ShowMessage(' size of the pointer po= $'+IntToHex(Dword(po),2) + ' is: ' + 
IntToStr(SizeOf(po)));

هذا لأن مفهوم المؤشر هو عنوان في الذاكرة و بما أنك تستعمل win32 فكل العناوين هي من 32Bits أي 4 بايتات. والدالة sizeof تقوم بإعادة عدد البايتات اللازمة لكل نوع من أنواع المتغيرات, والبوانتر معرفة كلها على انها cardinal أي dword.

بالنسبة للدالة func فيجب أن تعدلها إلى:

function func(po:pointer;len: integer):boolean;
var
Da: array of byte;
begin
setLength(da,len));
.........
.............
end;

لكي تأخذ بعين الإعتبار حجم البيانات التي تمرر لها.

وتستتدعيها على هذا النحو:

bval:=func(@sec,sizeof(sec));

اعتقد ان الحل غير كافي السبب انني اريد تغير طول المصفوفة الى عدد قد يصل طوله الى 103172 بايت و الدالة sizeof ستعيد الربة دائماً لذلك انا بحاجة الى طريقة لادخال متتويات PO في المصفوفة الديناميكية على اعتبار ان المرسل الى المؤشر مصفوفة طوله قد يتغير من مرة الى اخرى

على كل حال شكراً لك و اذا لم اكن قادرا على التوضيح ساعيد السؤال بطريقة الخرى

اوضح اكثر ما تريد

ليتمكن الشباب من مساعدتك

لماذا لا تقوم المصفوفة الديناميكية بتغيير قيمها عند استتخدامها مع تابع الAPI

ReadFile

في نظام اكس بي أو عند تمريرها كوسيط دالة مثلاً الدالة:

function fofo(a:pointer):boolean

و يكون التمرير :

var

a: array of byte

begin

fofo(a) end

وطبعا قمت باستخدام SetLength

بس ما مشي الحال

يللي ما فهم بعتذر بس يللي عندو أي مواضيع عن مصفوفات ديناميكية مستخدمة مع API

و شكراً

في الحقيقة لم تقم بتوضيح ما تريده أبدا, بل كان سؤالك موجه إلى ناحية مغايرة

فبعد قراءة الكود أعتقد أن ما تريده هو تمرير مصفوفة إلى تابع والقدرة على الكتابة فيها أليس كذلك؟

أولا بالنسبة لتمرير المصفوفات في توابع API وغيرها فيكون ذلك عن طريق تمرير مؤشر البداية لهذه المصفوفة وطول هذه المصفوفة

ثانيا لا يتم التعامل مع المصفوفة التي تم تمرير مؤشر بدايتها بأن تقوم داخل الإجراء بإنشاء مصفوفة ديناميكية بطول المصفوفة الممررة فذلك يعني أنك تعمل على مصفوفة جديدة لا علاقة لها بالمصفوفة الممررة

أخيرا وقبل أن أقوم بوضع أي أمثلة أحتاج لأن أعرف إن كان هذا ما تريده وتوضح مشكلتك