[dm-451]

Здравствуйте. На днях установил библиотеку RxLib. Использую компонент RxRichEdit. Он поддерживает работу с потоками с помощью команд SavetoStream и LoadfromStream. При использовании файлового потока - все нормально: корректно записывает содержимое в файл и считывает из него. А вот при использовании других потоков - возникла проблема: в поток записывает данные, но не хочет считывать(пусто).
Привожу код, может где-то ошибся. На форме - сам компонент RxRichEdit и 2 кнопки. Требуется - по нажатию одной из них записать содержимое RxRichEdit в поток, а при нажатии другой считать информацию с потока в поле RxRichEdit.

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RxRichEd;

type
  TForm1 = class(TForm)
    RxRichEdit1: TRxRichEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  t:TMemoryStream;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  RxRichEdit1.Lines.LoadFromStream(t);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  RxRichEdit1.Lines.SaveToStream(t);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
t:=TMemoryStream.Create;
end;

end.

P.S. Также пробовал использовать TStringStream.
Заранее благодарен.

[lmikle]

Ну все правильно. А кто текущую позицию перед считыванием переставит на начало потока??? Метод Seek.

[dm-451]

Сообщение от lmikle

Ну все правильно. А кто текущую позицию перед считыванием переставит на начало потока??? Метод Seek.

Огромное спасибо. Использовал t.Seek(0,0); и всё заработало. А не подскажите, как можно определить текущую позицию указателя потока?