| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сохранить путь к файлу в типизированном файле? [D6, Win2k]
AndrewK © (2002-11-19 10:55:00)Уважаемые мастаки, такой вопрос. У меня есть две структуры:
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 символов в типизированном файле?
han_malign (2002-11-19 11:17:00) [1]кстати, в виндах, больше 251 символа в пути файла быть не может, лично проверял под 98 и 2000
Юрий Зотов (2002-11-19 11:14:00) [2]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);
| |
