Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.19;
Скачать: CL | DM;

Вниз

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

 
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]

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



Страницы: 1 вся ветка

Текущий архив: 2003.12.19;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.02 c
3-61934
comwad
2003-11-27 06:57
2003.12.19
Как хранить в базе форматированный текст? XML?


1-62048
Pesh
2003-12-05 23:03
2003.12.19
определение выходного дня


1-62144
NONAME
2003-12-07 18:40
2003.12.19
Подскажите! Rак сделать некоторый SCORE.dat файл с не читаемой в


14-62208
Начинающий веб-дизайнер
2003-11-26 15:50
2003.12.19
подскажите програмку...


14-62197
Denis
2003-11-27 08:51
2003.12.19
Звуковой шум - откуда?