Gönderen Konu: TreeView deki bütün verileri Memo Bileşenine Listelemek (Okunma sayısı 2036 defa)

cdmesut · « : 16 Kasım 2009 09:11:34 »

TreeView1 nesnesinin ilk itemini seçili olması lazım.. böylelikle içindeki bütün itemleri memo nesnesine aktarır.

 procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin

  for  i:= 0 to TreeView1.Items.Count - 1 do
  begin

   memo1.Lines.Add(TreeView1.Items[i].Text);
Treeview1.Selected := Treeview1.Selected.GetNext;

end;



end;

end.

barutali · « **Yanıtla #1 :** 16 Kasım 2009 23:57:46 »

http://www.delphidunyasi.net/delphi-sorulari/treeview-nesnesini-icerigini-almak/

Kod: (Unknown Language)

var
i:integer;
begin
 
  for  i:= 0 to TreeView1.Items.Count - 1 do
  begin
   memo1.Lines.Add(TreeView1.Items[i].Text);
// Treeview1.Selected := Treeview1.Selected.GetNext;
end;

izninle biraz modifiye etmek istiyorum ..
Treeview1.Selected := Treeview1.Selected.GetNext; bu satır fazla ..

TreeView1.Items.Text diyerek zaten treeview i döngüye almış oluyorsun bir daha ilerletmene gerek kalmıyor ..

ayrıca TreeView itemlarını kaydetmek (savetofile) ve geri yüklemek (loadfromfile) ile ilgili örnek için aşağıdaki linki inceleyebilirsin ..

http://www.delphidunyasi.net/delphi-sorulari/treeview-nesnesini-icerigini-almak/

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: TreeView deki bütün verileri Memo Bileşenine Listelemek (Okunma sayısı 2036 defa)

cdmesut

TreeView deki bütün verileri Memo Bileşenine Listelemek

barutali

Ynt: TreeView deki bütün verileri Memo Bileşenine Listelemek