Показать сообщение отдельно
  #3  
Старый 15.03.2010, 04:09
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию

Цитата:
Сообщение от 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.
Ответить с цитированием