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

Помогите с классом 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 после этого остается пустым, как будто пустой поток.

---

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

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


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

---

← →
Slym ©   (2006-08-09 11:39) [5]

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

---

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

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



Память: 0.46 MB
Время: -0.973 c