Показать сообщение отдельно
  #1  
Старый 23.04.2009, 18:00
dm-451 dm-451 вне форума
Прохожий
 
Регистрация: 23.04.2009
Сообщения: 9
Репутация: 10
Стрелка RxRichEdit и TMemoryStream

Здравствуйте. На днях установил библиотеку 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.
Заранее благодарен.
Ответить с цитированием