VPF::Проблема с чтением потока - Форум программистов

Тутанхамец

Дата 2.12.2006, 10:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 1
Всего: 6

Здравствуйте!

Есть такой код. Он читает текст в ричэдит из файла. Поток используется потому, что в будущем текст надо будет расшифровывать. Код работает без исключений, но в ричэдите не оказывается никакого текста. В чем ошибка?

Код


procedure THolder.LoadFromFile(sFile:string);
var
   tfs:TFileStream;
   stContent:TStringStream;

begin
   tfs:=TFileStream.Create(sFile, fmOpenRead or fmShareDenyNone);
   stContent:=tstringstream.Create('qq');
   stContent.CopyFrom(tfs,tfs.Size);

   tfs.Free;

   storage.Lines.LoadFromStream(stcontent);
   stcontent.free;
end;

Код


type
 pre=^TRichEdit;
  THolder=class(TObject)
  public
  storage:pre;
...

Заранее благодарен.

Добавлено @ 10:52
А! Въехал!

Надо перед тем, как читать, открутить на начало потока. Вот так:

Код


stcontent.Position :=0;
 restorage.Lines.LoadFromStream(stcontent);

Тема закрыта smile

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »