Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Kiloper © (2006-08-09 11:23:00)
Написал такое событие:

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???

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

Сергей М. (2006-08-09 11:35:00) [2]

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

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

Kiloper (2006-08-09 11:29:00) [3]
Если писать TStringStream то там надо еще надо параметр String писать, то есть
a:=TStringStream.Create(s);
Сделал так, остальное оставил как есть, однако RichEdit после этого остается пустым, как будто пустой поток.

Сергей М. (2006-08-09 11:26:00) [4]
a:=T MemoryStream.Create;
try
Richedit1.Lines.SaveToStream(a);
a.Position := 0;
Richedit1.Lines.LoadFromStream(a);
finally
a.Free;
end;

-=Germe$=- (2006-08-09 11:25:00) [5]
a:=TStringStream.Create;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »