работа с treeview

[linuxoid1]

Здравствуйте!
1) как сохранить данные, которые были добавлены и изменены в TreeView.
можно использовать inifile.
2) как загрузить на форму данные из этого inifile.


Заранее благодарю

[Johnson]

стандартными методами - никак. алгоритм примерно такой должен быть, если сам хочешь созранять (писалось по памяти и для TListView, структуру TTreeView просто не помню, просто посмотрите разницу методов и проперти между этими компонентами и подправите, за работоспособность не пинайте, но суть думаю поймеете):

procedure TMainForm.ListViewSave;
var
	I:integer;
	INI:TIniFile;
	tmp:string;
begin
	INI:=TIniFile.Create('тут путь к вашему ини');
	for I:=0 to ListView1.Items.Count-1 do begin
		tmp:=ListView.Items[I].caption+'|'+ListView.Items[I].SubItems[0]+'|'+ListView.Items[I].SubItems[1];  // тут столько, сколько сабитемов существует
		INI.WriteString('ListView1',IntToStr(I),tmp);
	end;
	INI.WriteInteger('ListView1','Total',I);
end;

procedure TMainForm.ListViewRead;
var
	I,tmp1:integer;
	INI:TIniFile;
	tmp:string;
begin
	INI:=TIniFile.Create('тут путь к вашему ини');
	tmp1:=INI.ReadInteger('ListView1','Total',0);
	for I:=0 to Total do begin
		tmp:=INI.ReadString('ListView1,IntToStr(I),'');
		ListView1.Items[I].caption:=Copy(tmp,1,Pos('|',tmp));
			Delete(tmp,1,Pos('|',tmp)+1);
		ListView1.Items[I].SubItems[0]:=Copy(tmp,1,Pos('|',tmp));
			Delete(tmp,1,Pos('|',tmp)+1);
		ListView1.Items[I].SubItems[1]:=Copy(tmp,1,Pos('|',tmp));
			Delete(tmp,1,Pos('|',tmp)+1);
	end;
end;