TreeView ile String Depolama -- XML Kaynak..

[Jire]

Merhaba.
Benim küçük bir sorum olacaktı.
Önceden Treeview ile uğraşmadığım için pek bilmiyorum.
Benim burada asıl amacım resimdeki ANASTR'de Str1,2,3 ve 4'leri Düzenleme Kutularına yüklemek (TEdit) Edit1 Edit2 Edit3 Edit4'lere
Yardım ederseniz çok sevinirim.



VE, XML mapping, node okuma yazma öğrenmek istiyorum googleda araştırdım ama çok karmaşıklar bildiğiniz kolayca öğrenebileceğim Türkçe bir kaynak verirmisniz? lütfen.

Şu kodları denedim ama bilmiyorum hata veriyor ( bulsayi integer )

Kod: Tümünü seç

bulsayi := Items.Item[GetNodeAt(Mouse.CursorPos.X,Mouse.CursorPos.Y).Index].Index;
StrList.IndexOf('ANASTR''+IntToStr(bulsayi));
LabeledEdit1.Text := StrList.Names[bulsayi+4]; //str4'ü yükleyecek

Form Değerleri

Kod: Tümünü seç

var
Form1: TForm;
StrList: TStringList;
StrSayi: Integer;
Str1,Str2,Str3,Str4: String

ButtonClick

Kod: Tümünü seç

begin
StrList := TStringList.Create;
StrSayi := +1;
StrList.Add('ANASTR'+IntToStr(StrSayi));
StrList.Add('STR1'+IntToStr(StrSayi)+ Str1);
StrList.Add('STR2'+IntToStr(StrSayi) + Str2);
StrList.Add('STR3'+IntToStr(StrSayi)   + Str3);
StrList.Add('STR4'+IntToStr(StrSayi) + Str4);
TreeView1.Items.AddFirst(nil,'ANASTR');
TreeView1.Items.AddChildFirst(TreeView1.Items.Item[0],'STR4');
TreeView1.Items.AddChildFirst(TreeView1.Items.Item[0],'STR3');
TreeView1.Items.AddChildFirst(TreeView1.Items.Item[0],'STR2');
TreeView1.Items.AddChildFirst(TreeView1.Items.Item[0],'STR1');