Скачать: CL | DM;

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

← →
pathfinder ©   (2007-12-29 11:20) [0]

Добрый день!
Подскажите, пожалуйста, что я делаю не так.
Сохраняю содержимое 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;

---

← →
Palladin ©   (2007-12-29 11:24) [1]

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

---

← →
pathfinder ©   (2007-12-29 11:27) [2]

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


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

Спасибо!

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c