Главная страница
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.47 MB
Время: 0.019 c
14-62230
User
2003-11-26 02:08
2003.12.19
Confessa


14-62226
SkyRanger
2003-11-26 02:16
2003.12.19
Глюки и Баги в играх


1-62016
Zero Ice
2003-12-06 19:40
2003.12.19
autoexec.bat?


1-62150
uhhax
2003-12-07 15:47
2003.12.19
Алгоритм шифрования RC4


14-62192
ГОСТ
2003-11-27 16:48
2003.12.19
Меняется направленность звукового шума.