Сообщение от :
{- - - Сохранение текущего проекта - - -}
f:=TFileStream.Create(ExtractFilePath(Application. ExeName)+'\System\save.rop',fmCreate or fmShareCompat);
try
f.WriteComponent(tvSpisokTem);
finally
f.Free;
end;
{- - - сохранение данных, хранящихся в DATA, в отдельный файл - - -}
AssignFile(FData,ExtractFilePath(Application.ExeNa me)+'\System\SaveData.rop');
Rewrite(FData);
try
NodeData:=tvSpisokTem.Items.Item[0];
while NodeData<>nil do
begin
if NodeData.Data<>nil then
writeln(FData,TMyStoreClass(NodeData.Data).my_stri ng+'...'+IntToStr(NodeData.AbsoluteIndex))
else
writeln(FData,'');
NodeData:=NodeData.GetNext;
end;
finally
CloseFile(FData);
end;
Сообщение от :
var
f: TFileStream;
procedure TfmObolochka.TreeSaveIni(Tree: TTreeView; INI: TIniFile);
var
n: Integer;
MS: TMemoryStream;
tTv: TStringList;
Node: TTreeNode;
begin
tTv:=TStringList.Create;
MS:=TMemoryStream.Create;
try
Tree.SaveToStream(MS);
MS.Position:=0;
tTv.LoadFromStream(MS);
INI.EraseSection('Структура');
for n := 0 to tTv.Count - 1 do
INI.WriteString('Struktura','Node'+IntToStr(n),StringReplace(tTv[n],#9,'#',[rfReplaceAll]));
INI.EraseSection('DATA');
Node:=Tree.Items.GetFirstNode;
while Node<>nil do
begin
if Node.Data<>nil then
begin
INI.WriteString('DATA',Node.Text,TMyStoreClass(Node.Data).my_string);
end;
Node:=Node.GetNext;
end;
finally
tTv.Free;
MS.Free;
Node.Free;
end;
end;
Сообщение от :
Как можно загрузить в дерево из файла строки в Data?
Проблема в следующем:
при работе в проекте в Data определенной ветки, хотя даже "листа", сохраняю строковую переменную, может даже не в одну.... Сохраняю все в файлы: отдельно само дерево и отдельно Data веток.
И вот не знаю как загрузить обратно строки в Data
Сообщение от :
Есть TTreeView (дерево). Необходимо уметь сохранять и загружать структуру и данные из двух разных файлов.