А. Григорьев - О чём не пишут в книгах по Delphi

procedure TForm1.Button2Click(Sender: TObject);

var

Rес: TMethod2Record;

Stream: TFileStream;

begin

Stream := TFileStream.Create('Method2.stm', fmOpenRead);

Stream.ReadBuffer(Rec, SizeOf(Rec));

Stream.Free;

Label1.Caption :=

TimeToStr(EncodeTime(Rec.Hour, Rec.Minute, Rec.Second, Rec.MSec));

Label2.Caption := Rec.Msg;

end;

Константа MsgLenзадаёт максимальную (вместе с завершающим нулём) длину строки. В приведенном примере она взята достаточно маленькой, чтобы наглядно продемонстрировать, что данный метод имеет ограничения на длину строки. Переделки по сравнению с кодом предыдущего метода минимальны: при записи для копирования значения Edit1.Textвместо присваивания нужно вызывать функцию StrPLCopy. В коде RecordReadизменений (за исключением описания самой структуры) вообще нет — это достигается за счёт того, что массив Charсчитается компилятором совместимым с PChar, а выражения типа PCharмогут быть присвоены переменным типа AnsiString — конвертирование выполнится автоматически.

Однако проблему неэффективного использования файлового пространства мы таким образом не решили. Более того, мы до конца не решили и проблему максимальной длины: хотя ограничение на длину строки теперь может быть произвольным, всё равно оно должно быть известно на этапе компиляции. Чтобы полностью избавиться от этих проблем, необходимо вынести строку за пределы записи и сохранить её отдельно, вместе с длиной, чтобы при чтении сначала читалась длина строки, затем выделялась для неё память, и в эту память читалась строка. Именно так работает третий метод. В проекте Record Write это будет следующий код (листинг 3.39)

type

TMethod3Record = packed record

Hour: Word;

Minute: Word;

Second: Word;

MSec: Word;

end;

procedure TForm1.Butrton3Click(Sender: TObject);

var

Rec: TMethod3Record;

Stream: TFileStream;

Msg: string;

MsgLen: Integer;

begin

DecodeTime(Now, Rec.Hour, Rec.Minute, Rec.Second, Rec.MSec);

Msg := Edit1.Text;

MsgLen := Length(Msg);

Stream := TFileStream.Create('Method3.stm', fmCreate);

Stream.WriteBuffer(Rec, SizeOf(Rec));

Stream.WriteBuffer(MsgLen, SizeOf(MsgLen);

if MsgLen > 0 then Stream.WriteBuffer(Pointer(Msg)^, MsgLen);

Stream.Free;

end;

В проекте RecordRead это следующий код (листинг 3.40).

procedure TForm1.Button3Click(Sender: TObject);

var

Rec: TMethod3Record;

Stream: TFileStream;

Msg: string; MsgLen:

Integer;

begin

Stream := TFileStream.Create('Method3.stm', fmOpenRead);

Stream.ReadBuffer(Rec, SizeOf(Rec));

Stream.ReadBuffer(MsgLen, SizeOf(Integer));

SetLength(Msg, MsgLen);

if MsgLen > 0 then Stream.ReadBuffer(Pointer(Msg)^, MsgLen);

Stream.Free;

Label1.Caption :=

TimeToStr(EncodeTime(Rec.Hour, Rec.Minute, Rec.Second, Rec.MSec));

Label2.Caption := Msg;

end;

Наконец-то мы получили код, который безошибочно передает строку, не имея при этом ограничений длины (кроме ограничения на длину AnsiString) и не расходуя понапрасну память. Правда, сам код получился сложнее. Во-первых, из записи исключено поле типа string, и теперь ее можно без проблем читать и писать в поток. Во-вторых, в поток после нее записывается длина строки. В-третьих, записывается сама строка.

Параметры вызова методов ReadBufferи WriteBufferдля чтения/записи строки требуют дополнительного комментария. Метод WriteBufferпишет в поток ту область памяти, которую занимает указанный в качестве первого параметра объект. Если бы мы указали саму переменную Msg, то записалась бы та часть памяти, которую занимает эта переменная, т.е. сам указатель. А нам не нужен указатель, нам необходима та область памяти, на которую он указывает, поэтому указатель следует разыменовать с помощью оператора ^. Но просто взять и применить этот оператор к переменной Msgнельзя — с точки зрения синтаксиса она не является указателем. Поэтому приходится сначала приводить ее к указателю (здесь подошел бы любой указатель, не обязательно нетипизированный). То же самое относится и к ReadBuffer: чтобы прочитанные данные укладывались не туда, где хранится указатель на строку, а туда, где хранится сама строка, приходится прибегнуть к такой же конструкции. И обратите внимание, что прежде чем читать строку, нужно зарезервировать для нее память с помощью SetLength.

Вместо приведения строки к указателю с последующим его разыменованием можно было бы использовать другие конструкции: