Как сохранить путь к файлу в типизированном файле?

← →
AndrewK © (2002-11-19 10:55) [0]

Уважаемые мастаки, такой вопрос. У меня есть две структуры:

tRec1 = record
X : Integer;
Y : Integer;
Path : String;
end;

tRec2 = record
X : Integer;
Y : Integer;
Width : Integer;
Height : Integer;
Path : String;
end;

В них сохраняется информация о свойствах двух классов tClass1 и tClass2 соответственно. Экземпляров этих классов может быть несколько. Надо сохранить информацию обо всех этих объектах в файле. Для работы использую метод WriteBuffer из TFileStream.

Делаю так:

... var Rec1 : tRec1; Rec2 : tRec2; Stream : TStream; begin Stream := TFileStream.Create("d:\test.tst",fmCreate); ... Rec1 := ..... // Заполняем структуру Rec1 свойствами Class1 Stream.WriteBuffer(Rec1, SizeOf(tRec1)); Rec2 := ..... // Заполняем структуру Rec2 свойствами Class2 Stream.WriteBuffer(Rec2, SizeOf(tRec2)); ... Stream.Free; end;

Строки не сохраняются. Если в tRecX заменяю String на ShortString, то все работает нормально. Но по логике эта технология будет работать только если путь в структуре будет меньше 256 символов.

Как мне сохранить строку с длиной более 256 символов в типизированном файле?

← →
Юрий Зотов © (2002-11-19 11:14) [1]

String - это указатель. Вы записываете адреса строк, а не сами строки. Используйте, что-то типа этого:

Stream.WriteBuffer(Rec1.X, SizeOf(Integer));
Stream.WriteBuffer(Rec1.Y, SizeOf(Integer));
Stream.WriteBuffer(Length(Rec1.Path), SizeOf(Integer));
Stream.WriteBuffer(Rec1.Path[1], Length(Rec1.Path)+1);

кстати, в виндах, больше 251 символа в пути файла быть не может, лично проверял под 98 и 2000

Как сохранить путь к файлу в типизированном файле? Найти похожие ветки