[Vhm]

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

[ryderx34]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

// сохранение 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 изначально пустое):

Код:

1 2 3 4 5 6 7 8 9

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

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