Сохранение записи сложной структры в файл

[Демо]

Цитата --Ins-- @ 17.10.08, 12:47

Видишь, и SizeOf применим

Ты скажи мне, фундаментальный тип всегда останется неизменного размера? Уверен в том?

[Rouse_]

Write заменить на WriteBuffer а по поводу SizeOf есть вот такой вопросик:
SizeOf(Char) = ?

[R@RED]

Хых, страшно рад, что мой вопрос вызвал такой оживленный спор... =)

Цитата Rouse_ @ 17.10.08, 09:38

TSampleRec=record
Text: String;
Num: Integer;
end;


i: integer;
sr: TSampleRec;
fs: TFileStream;
begin

sr.Text := 'test text';
sr.Num := 19;

// Пишем
fs := TFileStream.Create('c:\temp\file.tst', fmCreate);
try
i := Length(sr.Text);
fs.Write(i,4);
fs.Write(sr.Text[1],Length(sr.Text));
fs.Write(sr.Num,4);
finally
fs.Free;
end;

// Читаем
fs := TFileStream.Create('c:\temp\file.tst', fmOpenRead);
try
fs.Read(i,4);
SetLength(sr.Text,i);
fs.Read(sr.Text[1],i);
fs.Read(sr.Num,4);
finally
fs.Free;
end;

Rouse, если бы все было так просто, я бы и вопрос не задавал! ) Такая мысль мне и самому приходила. Согласен, что так рекорд успешно запишется, но если учесть, что в нем несколько десятков полей, многие из которых также являются записями, которые также содержать большое количество полей и динамических массивов... К тому же размер файла существенно возрастет, если перед каждой переменной записывать ее размер, да и скорость будет не совсем приемлимой... Я уж не говорю о том, что я просто запарюсь печетать! =\
Может есть другой способ?

[R@RED]

Ins! Rouse! Блин, ну создали бы что-ли отдельную ветку "Филосифия Delphi"! )) А у меня сейчас есть реальный вопрос и совсем не много времени! Плиз, ребята, помогите разобраться!

[andrew.virus]

R@RED приведи пример твоей записи попробую помочь ...

Сообщения были разделены в тему "Фундаментальные и общие типы данных"

[Virtuals]

хм нифигасе нафлудили, и кто?, люди облаченные властью и знаниями
а про то что помочь топикстартеру забыли? а проблема имхо на поверхности!
R@RED

type
TProject =record
num:word;
doc:array[1..128] of char;
end
..
var Project:TProject;
...
WriteBuffer(Project, SizeOf(Project));

сработает!
а вот

type
TProject =record
num:word;
doc:Pchar;
end
..
var Project:TProject;
...
WriteBuffer(Project, SizeOf(Project));

нет! а почему? догадался?

ЗЫ примерчик офтопа

как то раз пришел один ко мне на работе и говорит типа ты че лох говориш что песенки занимают примерно 1метр/минута, вот у меня на дискете 400 песен и еще место осталось. и как вы думаете что было на дискете? правильно... 400 ярлыков, у дома у него все работало

не используй указательные типы (pchar это указатель на на массив символов, имеет размер sizeof(pointer), а данные находятся в другой области памяти)

[R@RED]

Цитата andrew.virus @ 17.10.08, 15:29

приведи пример твоей записи попробую помочь ...

Ок, по определенным причинам не могу привести конкретно свой рекорд, но приведу подобный, если удасться сохранить его, то и проблема будет решена:

type TRecType1 = (rtRTV1, rtRTV2);
type TRecType2 = set of (rttRTV1, rttRTV2);
 
type TSubRec = record
    str1   : string;
    str2   : ShortString;
    int1   : integer;
    int2   : LongInt;
    _type  : TRecType1;
    _type1 : TRecType2;
    mass1  : array of string;
    mass2  : array of integer;
    bool1 : boolean;
end;
 
type TProject = record
    mass1 : array of TSubRec;
    str1  : string;
    int1  : LongInt;
    int2  : integer;
    bool1 : boolean;
end;

Только необходимо учитывать, что полей и типов гораздо больше, так что способ Демо не подходит. Есть идеи? =)

Сообщение отредактировано: R@RED - 18.10.08, 04:12

[Virtuals]

R@REDмой пост выше читал?
sizeof(mass1) =4 !!! как думаеш почему?
кстати string тоже указатель
фиксированный только ShortString

Добавлено 18.10.08, 05:58
в твоем примере

type TRecType1 = (rtRTV1, rtRTV2);
type TRecType2 = set of (rttRTV1, rttRTV2);

type TSubRec = record
str1 : string;
str2 : ShortString;
int1 : integer;
int2 : LongInt;
_type : TRecType1;
_type1 : TRecType2;
mass1 : array of string;
mass2 : array of integer;
bool1 : boolean;
end;

type TProject = record
mass1 : array of TSubRec;
str1 : string;
int1 : LongInt;
int2 : integer;
bool1 : boolean;
end;
это ошибки

Сообщение отредактировано: Virtuals - 18.10.08, 05:59

[R@RED]

Цитата Virtuals @ 18.10.08, 05:33

sizeof(mass1) =4 !!! как думаеш почему?

Почему же?

Цитата Virtuals @ 18.10.08, 05:33

это ошибки

Что значит ошибки, если мне необходимо использование именно этих типов? Если string на какой то подобный строковой тип я еще смогу заменить, то как например я должен обходиться без динамических массивов?
Извини, если чего-то не понял, буду рад, если приведешь правильный пример записи.

[Демо]

R@RED
Универсального решения для сохранения структур в файл нет.
Принцип понятен, остальное - кодирование.
Т.е. каждую структуру нужно обрабатывать по-своему.

[R@RED]

Цитата Демо @ 18.10.08, 10:03

каждую структуру нужно обрабатывать по-своему.

Цитата R@RED @ 17.10.08, 14:26

Согласен, что так рекорд успешно запишется, но если учесть, что в нем несколько десятков полей, многие из которых также являются записями, которые также содержать большое количество полей и динамических массивов... К тому же размер файла существенно возрастет, если перед каждой переменной записывать ее размер, да и скорость будет не совсем приемлимой...

Я правильно понял, что в моем случае обрабатывать структуры по одтельности - это единственный путь и ни смотря на все минусы альтернативного решения нет? =(

[Демо]

Цитата R@RED @ 18.10.08, 10:08

Я правильно понял, что в моем случае обрабатывать структуры по одтельности - это единственный путь и ни смотря на все минусы альтернативного решения нет? =(

Именно так.
А что, у тебя их так много?

Если структуры - своеобразные наследники друг друга, то альтернативный вариант - создание классов наследников, которые умеют писать себя в поток. Это поможет упростить код и умегьшить его объём.

[R@RED]

Цитата Демо @ 18.10.08, 10:18

создание классов наследников, которые умеют писать себя в поток. Это поможет упростить код и умегьшить его объём.

Это уже интереснее... А как можно реализовать умение "писать себя в поток", если опять же не пробегать все элементы по отдельности?

[Демо]

Цитата R@RED @ 18.10.08, 10:22

А как можно реализовать умение "писать себя в поток", если опять же не пробегать все элементы по отдельности?

Писать каждый элемент в любом случае придётся. Упрощение возможно лишь в случае наследования когда каждый наследник лишь добавляет новые поля для записи, а предок уже умеет работать с остальными полями.

Сообщение отредактировано: Демо - 18.10.08, 10:39

[R@RED]

Оуу... Ясно! Что ж, видимо все таки придеться писать все по очереди... =\ Ладно, спасибо за ответы, буду рад если у кого то еще появятся какие то идеи.