Подскажите кто знает в чем дело. Не пойму с 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;

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

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