Консультация № 172006
08.09.2009, 15:02
100.00 руб.
0 0 0
Добрый день, уважаемые эксперты! Есть такая библиотека AcedUtils. В которой реализовано множество алгоритмов для облегчения нашего с вами труда. Интересует модуль AcedStreams.pas, а именно как работать с TBinaryReader, TBinaryWriter. В частности, как заполнить массив TBinaryWriter обычными строковыми значениями и прочитать эти значения, я разобрался (код в приложении), а как читать сырые данные (под сырыми данными я понимаю данные, в которых есть управляющие символы, двоичные данные и текстовые, занесенные в TBinaryWriter процедурой Write) не разобрался. В частности задача такая: есть тестовый файл с управляющими символами, я считываю содержимое файла и записываю данные в переменную типа TBinaryWriter процедурой Write, далее у меня не получается прочитать то что я записал в поток. Как правильно прочитать те данные, что я записал в переменную типа TBinaryWriter и далее сохранить эти данные в другой файл? Если не трудно, то хотелось бы увидеть реализацию решения данного вопроса на Delphi, большое спасибо!

Приложение:
procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
S: string;
Writer:TBinaryWriter;
begin
if OpenDialog1.Execute then
begin
AssignFile(F, OpenDialog1.FileName);
Reset(F);
Writer:=TBinaryWriter.Create;
while not eof(F) do
begin
Readln(F, S);
Writer.Writestring(S);
end;
CloseFile(F);
end;

Обсуждение

Форма ответа