!!! ОШИБКА СЧИТЫВАНИЯ ИЗ ФАЙЛА !!!

← →
Checist [root] (2003-12-09 15:06) [0]

Имею на форме TreeView1 c неким деревом. И две клавиши "Save" и "Load", при нажатии на которые дерево элементов должно сохранятся или загружаться из файла syst.dll (файл не текстовый, сохраняю и загружаю через переменнную типа TTreeNode... или как там ее)
Вот процедуры этих функций, но при загрузке дерева вылетает неопределенная ошибка:

procedure TFormFavor.Save1Click(Sender: TObject);
var
TreeIt: TTreeNodes; {вот та самая переменная}
UrlFile: File of TTreeNodes; {переменная того файла}
begin
if FileExists(ExtractFilePath(Application.ExeName)
+ "syst.dll") = false then
FileCreate (ExtractFilePath(Application.ExeName) + "syst.dll");
AssignFile(UrlFile, ExtractFilePath(Application.ExeName)
+ "syst.dll");
Reset(UrlFile);
Write(UrlFile, TreeIt);
CloseFile(UrlFile);
end;

procedure TFormFavor.Load1Click(Sender: TObject);
var
TreeIt: TTreeNodes;
UrlFile: File of TTreeNodes;
begin
try
AssignFile(UrlFile, ExtractFilePath(Application.ExeName)
+ "syst.dll");
Reset(UrlFile);
Read(UrlFile, TreeIt);
CloseFile(UrlFile);
Tree1.Items := TreeIt; {!!! вот тут вылетает эта ошибка !!!}
except MessageBox(Handle, PChar("File "syst.dll" not
found"),PChar("Critical error"), $00000040);
end;
end;

Напишите правый соурс !!!

← →
Юрий Федоров (2003-12-09 15:10) [1]

Так нельзя
TTreeNodes = это указатель (pointer)

← →
Digitman (2003-12-09 15:12) [2]

> или как там ее

что ты хотел - то ты и получил

сохранил указатель на объект , а не сам объект

при считывании же прежний (ранее существовавший и сохраненный в момент сужествования) указатель не имеет смысла

← →
Skier (2003-12-09 15:12) [3]

>Checist [root] (09.12.03 15:06)
Вы жуткую вещь написали, батенька.
Вспоможение невозможно !

← →
Checist [root] (2003-12-09 15:20) [4]

А как можно (нужно, возможно)?

← →
Skier (2003-12-09 15:22) [5]

> элементов должно сохранятся или загружаться из файла syst.dll
>

TTreeView.SaveToStream
TTreeView.LoadFromStream

← →
Checist [root] (2003-12-09 15:26) [6]

Ага понял, спасибо!
Если можешь посмотри мой вопрос "!!! ОБРАЩЕНИЕ К ЭЛЕМЕНТАМ !!!"

!!! ОШИБКА СЧИТЫВАНИЯ ИЗ ФАЙЛА !!! Найти похожие ветки