منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

إلى

أخبر nachset TLIST البحث عن فروع مماثلة


Dreamer   (2001-12-17 14:17) [0]

Есть массив которому я присваиваю значения и тут же заношу в list, потом мне надо изменить параметры массива и соответсвенно чтоб tlist их тоже видел, привожу алгоритм в котором тлист не видит обновлений:(



فار
Form1: TForm1؛
k: عدد صحيح
pusk:array of integer;
N:integer;
ListPUSK: Tlist;
ukazPUSK: PDouble;
g:extended;


التنفيذ

{$ R * .dfm}

الإجراء TForm1.Button1Click (المرسل: TObject) ؛
فار
k: عدد صحيح
بدأ
ListPUSK:=Tlist.Create;
n: = 4 ؛
SetLength(PUSK,N);
for k:=0 to N-1 do
بدأ
pusk[k]:=k+1;
New(ukazPUSK);
ukazPUSK^ :=pusk[k];
ListPUSK.Add(ukazPUSK);
الغاية؛

for k:=0 to N-1 do
بدأ
pusk[k]:=8;
الغاية؛


for k:=0 to N-1 do
بدأ
ukazPUSK:=LISTPUSK[k];
if ukazPUSK^=8 then
g:=ukazPUSK^-2;
الغاية؛

الغاية؛



MBo   (2001-12-17 14:24) [1]

сначала ты вносишь в лист копии указатели на КОПИИ значений массива,
находящиеся в другом месте!

Думаю, твою задачу надо решить гораздо проще, и массив скорее всего не понадобится. Разъясни исходную проблему.



صفحات: 1 فرع كامل

المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

الطابق العلوي









الذاكرة: 0.55 ميغابايت
الوقت: 0.042 ج
6-22290
SineD
2001-10-09 17:48
2002.01.08
سؤال حول Sockets API


4-22468
Zabl
2001-11-02 11:56
2002.01.08
تسرب الذاكرة


1-22211
UUUU
2001-12-13 22:46
2002.01.08
مساء الخير ، يوم ، صباح. مساعدة الناس !!! كيفية طلب رقم والتبديل إلى وضع النغمة وإدخال رمز عشوائي *


1-22119
Socol
2001-12-15 10:45
2002.01.08
مساعدة مع سؤالين!


7-22423
Alex_K_xelA
2001-09-21 18:55
2002.01.08
قراءة القطاعات من قرص مضغوط





الأفريكانية الألبانية عربي الأرميني أذربيجان الباسكي البيلاروسية Bulgarian التشيكية الصينية المبسطة) تقاليد صينية) الكرواتية التشيكية دانماركي Dutch أنجليزي الإستونية الفلبينية Finnish جيب
الجاليكية الجورجية الألمانيّة اليونانيّة الكريولية الهايتية اللغة العبرية الهندية الهنغارية أيسلندي Indonesian الأيرلندية Italian اليابانيّة الكوريّة اللاتفية اللتوانية المقدونية الملايو المالطية Norwegian
اللغة الفارسية بولنديّة البرتغاليّة رومانية Russian صربي السلوفاكيّة سلوفيني إسباني السواحيلي Swedish Thai التركية الأوكراني الأردية الفيتنامية ويلزي اليديشية البنغالي البوسنية
السيبيونو الاسبرانتو الغوجاراتية الهوسا همونغ الإيبو جاوي الكانادا الخمير لاو لاتينية الماوري المهاراتية المنغولية النيبالية البنجابية الصومالية التاميل التيلجو اليوروبا
زولو
Английский Французский ألماني Итальянский البرتغالية Русский Испанский