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

إلى

كيفية التكرار عبر العقد الجذرية في TTreeView؟ البحث عن فروع مماثلة


ikar   (2001-12-21 09:10) [0]

Нужно перебрать только те которые находятся в корне, или хотябы идентифицировать в корне данный узел или нет.



Praco   (2001-12-21 09:21) [1]

for i:= 0 to TreeView1.Items.Count - 1 do
if TreeView1.Items[i].Level = 0 then
ShowMessage("Корень");



McSimm   (2001-12-21 10:42) [2]

Можно не перебирать все дерево, а взять первый элемент и перебрать его собратьев:
N := Items[0]
while Assigned(N) do
بدأ
ShowMessage(N.Text);
N := N.GetNextSibling
النهاية



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

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

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









الذاكرة: 0.55 ميغابايت
الوقت: 0.022 ج
14-22365
Ketmar
2001-10-16 06:22
2002.01.08
هذا مثير للاهتمام: هل أنا من سيمفيروبول وحده؟


1-22136
Dorixe
2001-12-20 09:40
2002.01.08
PROEKT


1-22209
غذاء
2001-12-14 14:10
2002.01.08
هل استخدم أي شخص وظيفة PaintTo لرسم WinControl s على لوحة الرسم النقطية؟ مساعدة! لا أستطيع فعل أي شيء.


1-22219
dimonf
2001-12-16 17:23
2002.01.08
كيفية جعل رسم قماش عندما يمر أي نافذة مع نافذة


1-22265
Ser_Kham1
2001-12-17 16:10
2002.01.08
مربع القائمة





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