Сохранение компонента в 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 в нужную позицию выставляешь перед чтением?

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

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

Спасибо!

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