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

Вниз

Подскажите кто знает в чем дело. Не пойму с TStream   Найти похожие ветки 

← →
Al_Ba ©   (2005-11-19 09:04) [0]

В процессе работы заполняю TreeView и сохраняю его так:

procedure TForm1.Button1Click(Sender: TObject);
var
myStream: TFileStream;
begin
 myStream := TFileStream.Create("tree.sav", fmCreate);
 myStream.WriteComponent(TreeView1);
 myStream.Destroy;
end;

Затем открываю его так:

procedure TForm1.Button3Click(Sender: TObject);
var
myStream: TFileStream;
begin
myStream    := TFileStream.Create("tree.sav", fmOpenRead);
TreeView1 := myStream.ReadComponent(TreeView1) as TTreeView;
end;

Затем я изменяю что-то в TreeView и пытаюсь сохранится, но он ругается. Не пойму в чем дело. Помогите ПЛЗ.......

---

← →
Crazy_Diman ©   (2005-11-19 10:22) [1]

procedure TForm1.Button1Click(Sender: TObject);

var
myStream: TFileStream;
begin
try
myStream    := TFileStream.Create("tree.sav", fmOpenRead or fmShareDenyNone);
TreeView1 := myStream.ReadComponent(TreeView1) as TTreeView;
finally
myStream.Free;
end;
 end;

procedure TForm1.Button2Click(Sender: TObject);
var
myStream: TFileStream;
begin
try
myStream := TFileStream.Create("tree.sav", fmCreate);
myStream.WriteComponent(TreeView1);

finally
 myStream.free;
end;
end;

---

← →
Crazy_Diman ©   (2005-11-19 10:30) [2]

забыл
замени
myStream := TFileStream.Create("tree.sav", fmCreate); на  
myStream := TFileStream.Create("tree.sav", fmCreate or fmOpenWrite);

---

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

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

Наверх

Память: 0.47 MB
Время: 0.027 c