پیدا کردن نام parent در Treeview نیاز فوری

[msoleiman]

با سلام
یک Treeview در برنامه دارم که ممکن است چند تا Parent داشته باشه و هریک از این Parent ها چند تا Child حالامن میخواهم که اطلاعات آن را در دیتابیس ذخیره کنم .
به این صورت که اطلاعات پرنت ها در یک جدول و اطلاعات Child ها در جدول دیگر البته به ترتیب یعنی ابتدا Parent1 و بعد Child های همین parent و یعد Parent2 و بعد Childهای parent2 و به همین ترتیب.
خواهش می کنم من را یاری کنید .

[ghabil]

یک Treeview در برنامه دارم که ممکن است چند تا Parent داشته باشه

یعنی چی ؟! اگر میخوای جواب درست و کامل بگیری سوالت رو درست و کامل و با مثال مطرح کن.

[merced]

اگه تو رويداد OnChange مي نويسي ::‌ منظورت اينه ؟؟ پيدا كردن مسير انتخاب شده؟



procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var x : String ;

begin
x := '/' ;
while Node <> nil do begin
x := TreeView1.Selected.Text + '/' + x ;

Node := Node.Parent ;
end ;
Caption := x ;


end;

[msoleiman]

سلام ممنون از این که پاسخ دادید ولی من سئوالم به این صورت است : که من میخواهم در تری ویو که به طور مثال دارای 3 تا Parent است که هریک از این Parent ها 3 تا child دارند . با زدن کلید ذخیره از ابتدای treeview شروع کند و ابتدا نام Parent1 را در دیتابیس ذخیره کند و سپس به سراغ Child های آن Parent رفته و آنهارا در یک جدول دیگر ذخیره کند . سپس کار این Parent و Child های این Parent که تمام شد به سراغ Parent بعدی برود و به همین صورت تا انتهای Tree .
عمل ذخیره سازی Parent و Child های مربوط به هم بایستی به صورت پیوسته انجام شود یعنی به این صورت نباشد که همه Parent ها به داخل دیتابیس ذخیره شود . اول Parent1 و بعد Childهای آن Parent و بعد Parent بعدی.

[MSHService]

سلام
سوال:
1- چرا میخواهی داخله دیتابیس ذخیره کنی؟
چرا از Save To File استفاده نمیکنی؟

2- هر زیر گروهت فقط Childه یا خودش میتونه پدر نیز باشه؟ یعنی فرزندان میتونند خودشون پدر نیز باشند؟



for i:=0 to TV1.item.count-1 do
begin
//شرط پدر بودن
showessage(TV1.items.item[i].text);
End;

بچه ها هم که طریقه پیدا کردن پدر رو هم تو تاپیک قبل لهت گفته بودن
موفق باشید.

[merced]

سلام ممنون از این که پاسخ دادید ولی من سئوالم به این صورت است : که من میخواهم در تری ویو که به طور مثال دارای 3 تا Parent است که هریک از این Parent ها 3 تا child دارند . با زدن کلید ذخیره از ابتدای treeview شروع کند و ابتدا نام Parent1 را در دیتابیس ذخیره کند و سپس به سراغ Child های آن Parent رفته و آنهارا در یک جدول دیگر ذخیره کند . سپس کار این Parent و Child های این Parent که تمام شد به سراغ Parent بعدی برود و به همین صورت تا انتهای Tree .
عمل ذخیره سازی Parent و Child های مربوط به هم بایستی به صورت پیوسته انجام شود یعنی به این صورت نباشد که همه Parent ها به داخل دیتابیس ذخیره شود . اول Parent1 و بعد Childهای آن Parent و بعد Parent بعدی.



احتمالاً منظورت از 3 تا Parent اينه كه سه تا Node‌در Root داري

بهتره برعكس كار كني . يعني اگه اطلاعات پيش فرضي وجود داره دستي وارد بانك اطلاعاتي كني
بعد براي نمايش از بانك بخوني.
اگه كاربر خواست جديد وارد كنه . اول تو بانك در محل مناسب ذخيره كني و دوباره tree‌رو باز سازي كني

[shervin farzin]

سلام
اينطور كه من متوجه شدم درختي كه شما در TreeView داريد ، 2 سطح بيشتر نداره . سطح
Parent و سطح Child . براي پيمايش درخت به ترتيبي كه خواسته بوديد ، ميتونيد از الگوريتم
زير استفاده كنيد :

var
i,Counter,Root_index:integer;
begin
Root_index:=0;
Counter:=TreeView1.Items.Count;
while Counter <> 0 do
begin
// Store parent in parent table
ListBox1.Items.Add(TreeView1.Items[Root_index].Text);
for i := 1 to TreeView1.Items[Root_index].Count do
begin
// Store parent's child in child table
ListBox1.Items.Add(TreeView1.Items[i+Root_index].Text);
Dec(Counter);
end;
Root_index:=Root_index+TreeView1.Items[Root_index].Count+1;
Dec(Counter);
end;

در اين كد من به جاي ذخيره Parent و Child در Table ، اونها رو به ترتيب پيمايش شده در يك
ListBox قرار دادم كه كد هاي ذخيره كردن شما در Database به جاي اين خط ها بايد قرار بگيرند.
يه نكته ديگه : با استفاده از روش id , p_id ميتونيد تمام گره هاي درخت رو در يك Table ذخيره
كنيد و ازش بعدا بازيابي كنيد . اگر در برنامتون مجبور به تفكيك گره ها نيستيد ، پيشنهاد ميكنم
از اين روش استفاده كنيد .
موفق باشيد .