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

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

Сохранение компонента в stream..

pathfinder ©   (2007-12-29 11:20:00) 

Добрый день!
Подскажите, пожалуйста, что я делаю не так.
Сохраняю содержимое edit-а в memorystream, а потом читаю его содержимое оттуда. Но при чтении возникает ошибка stream read error.

 TForm1 = class(TForm)
   Edit1: TEdit;
   Edit2: TEdit;
   btn_save: TButton;
   btn_load: TButton;
   procedure btn_saveClick(Sender: TObject);
   procedure btn_loadClick(Sender: TObject);
 private
   _buffer: tmemorystream;
   procedure save_data;
   procedure load_data;
 public
   constructor create(aowner: tcomponent); override;
   destructor destroy; override;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.btn_saveClick(Sender: TObject);
begin
 save_data;
end;

procedure TForm1.btn_loadClick(Sender: TObject);
begin
 load_data;
end;

constructor TForm1.create(aowner: tcomponent);
begin
 inherited create(aowner);
 _buffer := tmemorystream.create;
end;

destructor TForm1.destroy;
begin
 _buffer.free;
 inherited;
end;

procedure TForm1.load_data;
begin
 _buffer.readcomponent(edit1);
end;

procedure TForm1.save_data;
begin
 _buffer.writecomponent(edit1);
end;

---

pathfinder   (2007-12-29 11:27:00) [1]

> ну а seek в нужную позицию выставляешь перед чтением?


Мда, а слона то и не приметил:)

Спасибо!

---

Palladin   (2007-12-29 11:24:00) [2]

ну а seek в нужную позицию выставляешь перед чтением?

---

Наверх