Помогите с классом TStream....

← →
Kiloper (2006-08-09 11:23) [0]

Написал такое событие:

procedure TForm4.Button1Click(Sender: TObject);
var a:TStream;

begin
a:=TStream.Create;
Richedit1.Lines.SaveToStream(a);
Richedit1.Lines.LoadFromStream(a);
a.Free;
end;
А оно при нажатии кнопки выдает ошибку:
[Warning] Unit4.pas(152): Constructing instance of "TStream" containing abstract method "TStream.Read"
[Warning] Unit4.pas(152): Constructing instance of "TStream" containing abstract method "TStream.Write"

Как работать с классом TStream???

← →
-=Germe$=- © (2006-08-09 11:25) [1]

a:=TStringStream.Create;

← →
Сергей М. © (2006-08-09 11:26) [2]

a:=TMemoryStream.Create;
try
Richedit1.Lines.SaveToStream(a);
a.Position := 0;
Richedit1.Lines.LoadFromStream(a);
finally
a.Free;
end;

← →
Kiloper (2006-08-09 11:29) [3]

Если писать TStringStream то там надо еще надо параметр String писать, то есть
a:=TStringStream.Create(s);
Сделал так, остальное оставил как есть, однако RichEdit после этого остается пустым, как будто пустой поток.

> Сделал так, остальное оставил как есть

Ну так а что ж ты тогда удивляешься, что рич у тебя пустой ?

Kiloper (09.08.06 11:29) [3]
как будто пустой поток.
не пустой, а "конченый" (от конец), делай a.Position := 0;

Помогите с классом TStream.... Найти похожие ветки