Запись строки в файл через TFileStream

@vadim23409 · Регистрация: 24.09.2012

Author24 — интернет-сервис помощи студентам

Как записать в файл через TFileStream строку и число с количеством символов в этой строке (так как при чтении нужно это учитывать)? Можно было бы написать так:

Delphi

1	S:string[20]

, но в Delphi XE5/XE6 это убрали, как тогда записать определённое количество символов? Длину найти просто:

Delphi

1	L:=length(s);

Delphi

var Stream:TfileStream;
s:string;
l:integer;
begin
s:='bublik';
Stream := TFileStream.Create('c:\1.dat', fmOpenReadWrite);
L:=length(s);
Stream.WriteBuffer(L,sizeof(L));
stream.writeBuffer(S, {ну а тут какой размер вписать? Любой String через SizeOf 4 байта даёт...});
stream.free;

@Mawrat · 12.05.2014, 20:49

Данные строки начинаются с элемента S[1], а размер записываемых данных в байтах равен Length(S) * SizeOf(Char). С учётом этого:

Delphi

1	Stream.Write(S[1], Length(S) * SizeOf(Char));

Добавлено через 1 минуту
Сама переменная S : String является указателем на первый байт в области, где располагаются текстовые данные строки.

	12.05.2014, 20:49

Запись строки в файл через TFileStream

Решение