Консультация № 171620
26.08.2009, 08:24
0.00 руб.
0 0 0
Добрый день, уважаемые эскперты! Есть такая библиотека URL >> AcedUtils. В которой реализовано множество алгоритмов для облегчения нашего с вами труда. Интрересует модуль AcedStreams.pas, а именно как работать с TBinaryReader, TBinaryWriter. В частности, как заполнить массив TBinaryWriter для обычных текстовых файлов я разобрался (код в приложении), а как потом прочитать эти строки и как читать сырые данные (под сырыми данными я понимаю данные, в которых есть управляющие символы, двоичные данные и текстовые, занесенные в переменную процедурой Write)? Очень надеюсь, что вы мне поможите, спасибо!

Приложение:
procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
S: string;
Writer:TBinaryWriter;
begin
if OpenDialog1.Execute then { Display Open dialog box }
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;

Обсуждение

Форма ответа