[Vhm]

Значит проблема такая:
Делаем раз
TreeView1.SaveToFile('tree.dat'); полученный файлик открывается и все там нормально... А при выполнении TreeView.LoadFromFile('tree.dat') дерево отаброжется в виде иероглифов...
Также было замечено вот что... Если после создании файла tree.dat открыть его через блокнок и просто нажать сохранить... То после закрытия и выполнения TreeView.LoadFromFile('tree.dat'); все норм...
Может кто поможет мне с этой бедой!

[ryderx34]

попробуй это:

Код:

// сохранение
var
  F: TFileStream;
begin
  F := TFileStream.Create('c:\TreeView.txt', fmCreate or fmShareCompat);
  try
    F.WriteComponent(TreeView1);
  finally
    F.Free;
  end;
end;

// чтение
var
  F: TFileStream;
begin
  F := TFileStream.Create('c:\TreeView.txt', fmOpenRead or fmShareDenyWrite);
  try
    F.ReadComponent(TreeView1);
  finally
    F.Free;
  end;
end;

[AlexSku]

Сообщение от Vhm

Значит проблема такая:
Делаем раз
TreeView1.SaveToFile('tree.dat'); полученный файлик открывается и все там нормально... А при выполнении TreeView.LoadFromFile('tree.dat') дерево отаброжется в виде иероглифов...
Также было замечено вот что... Если после создании файла tree.dat открыть его через блокнок и просто нажать сохранить... То после закрытия и выполнения TreeView.LoadFromFile('tree.dat'); все норм...
Может кто поможет мне с этой бедой!

У меня всё вводится нормально (TreeView1 - исходное дерево, TreeView2 изначально пустое):

Код:

procedure TForm1.btnSaveClick(Sender: TObject);
begin
  TreeView1.SaveToFile('tree.dat');
end;

procedure TForm1.btnLoadClick(Sender: TObject);
begin
  TreeView2.LoadFromFile('tree.dat');
end;

Как-то вы странно описываете ситуацию: "файлик открывается" - где? "Также было замечено... если открыть через блокнот", а первый раз через какую программу смотрели? Возможно, первый просмотрщик меняет кодировку ANSI на Unicode.