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

إلى

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


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

هناك صفيف أقوم بتعيين القيم وأضعها على الفور في قائمة ، ثم أحتاج إلى تغيير معلمات الصفيف ووفقًا لذلك ، فإن هذه القائمة تراها أيضًا ، أقدم خوارزمية لا ترى فيها التحديثات تحديثات :(



فار
Form1: TForm1؛
k: عدد صحيح
pusk: مجموعة من عدد صحيح.
N: عدد صحيح
ListPUSK: Tlist؛
ukazPUSK: PDouble؛
g: ممتد ؛


التنفيذ

{$ R * .dfm}

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

ل k: = 0 إلى N-1 تفعل
بدأ
pusk [k]: = 8؛
الغاية؛


ل k: = 0 إلى N-1 تفعل
بدأ
ukazPUSK: = LISTPUSK [k]؛
إذا ukazPUSK ^ = 8 بعد ذلك
g: = ukazPUSK ^ -2؛
الغاية؛

الغاية؛



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

أولاً ، قمت بوضع مؤشرات ورقة النسخ على نسخ من قيم الصفيف ،
تقع في مكان آخر!

أعتقد أنه ينبغي حل مشكلتك بشكل أسهل ، وعلى الأرجح لن تحتاج إلى مجموعة. اشرح المشكلة الأصلية



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

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

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





الذاكرة: 0.54 ميغابايت
الوقت: 0.021 ج
3-21998
Yu
2001-12-07 11:27
2002.01.08
حذف إدخال من Query


3-21968
olban
2001-12-05 11:20
2002.01.08
QuantumGrid


1-22076
ثعبان
2001-12-19 12:50
2002.01.08
كيفية معرفة تاريخ الافراج عن BIOS؟


1-22047
handra
2001-12-17 13:12
2002.01.08
خلق مساعدة


1-22062
الكسندر
2001-12-19 00:17
2002.01.08
كيف أضيف أيام N إلى تاريخ محدد (TDateTime)؟





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