Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Пример TWriter и TReader

Вот что вы должны cделать для того, чтобы с помощью TWriter/TReader записать строку в поток. До сих пор для простоты я использую TMemoryStream.

Ключевыми являются вызовы Read/WriteListBegin и Read/WriteListEnd. Без них вы получите исключение.


 procedure TForm1.Button1Click(Sender: TObject);
 var
   sWrite, sRead: string[25];
 
   MyStream: TMemoryStream;
   MyWriter: TWriter;
   MyReader: TReader;
 begin
 
   MyStream := TMemoryStream.Create;
   MyStream.SetSize(4096);
   MyWriter := TWriter.Create(MyStream, 4096);
   sWrite := 'sWriteContents';
 
   MyWriter.WriteListBegin;
   MyWriter.WriteString(sWrite);
   MyWriter.WriteListEnd;
   MyWriter.free;
 
   MyStream.Seek(0, 0);
 
   MyReader := TReader.Create(MyStream, 4096);
   MyReader.ReadListBegin;
   sRead := MyReader.ReadString;
   MyReader.ReadListEnd;
   MyReader.free;
 
   Label1.Caption := sRead;
   MyStream.free;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS