| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Al_Ba ©   (2005-11-19 09:04:00) 

В процессе работы заполняю 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:30:00) [1]

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

---

Crazy_Diman   (2005-11-19 10:22:00) [2]

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;

---

Наверх