Показать сообщение отдельно
  #2  
Старый 24.04.2009, 07:37
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Цитата:
Сообщение от dm-451
Здравствуйте. Использую LoadFromStream для чтения данных с потока. Прошу помощи в организации чтения данных с потока с определенной позиции и до определенной, а не весь поток после текущего положения.
P.S. Использую TMemoryStream для чтения/записи RxRichEdit.
Заранее благодарен.
Пожалуйста:
Код:
...
var
  mem,tar: TMemoryStream;
begin
  mem := TMemoryStream.Create;
  tar := TMemoryStream.Create;
  mem.LoadFromFile('C:\Data.dat');
  mem.Seek(15000,soFromCurrent); //переносим текущую позицию на 15000 байт вперёд
  tar.CopyFrom(mem,20000); //и читаем 20000 байт в поток tar
...
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием