Записать несколько одинаковых типов в один файл

[Человек_Борща]

Всем доброго времени суток!

Вопрос:
Допустим есть:

Type
  Tsmth= packed record
  Name:string;
  Author:string;
  4islo:integer;
  blabla:TdateTime;
   end;

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

[Sibedir]

Ручками.
Я бы использовал TFileStream.
Сто раз курил эту шнягу, ничего универсального придумать не смог. Выдрать инфу можно только из свойств объектов (RTTI). Поля - это темная лошадка.

[Serge_Bliznykov]

1) я бы крайне настоятельно рекомендовал packed убрать и вместо string использовать string[Длина]

Tsmth= record
  Name:string[90];
  Author:string[90];
...

2)

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

Это как?!!! o_O !

var f : file of Tsmth;

записываете одно.
А потом каждый раз при чтении получаете РАЗНЫЕ значения?
Так НЕ ДОЛЖНО БЫТЬ!
Или Вы внутри файла по F3 (в HEX) смотрите, и там разный мусор видите?
Так это правильно. В начале строки пишется её длина, после этого в оставшейся памяти может быть всё что угодно (мусор), но это никак не влияет на чтение записей из файла!

3) в принципе, согласен с Sibedir - если условия задачи позволяют - то лучше использовать TFileStream
впрочем, тут от конкретных условия задачи многое зависит. У типизированных файлов есть много преимуществ...


p.s. перечитал тему... А что значит - несколько типов в один файл? может я неправильно понял, что Вам надо?!

[Пепел Феникса]

такое только руками, как сохранять string в файл я показывал не один раз.

напиши один раз процедуру сохранения и пользуйся на здоровье.

[Человек_Борща]

Сообщение от Serge_Bliznykov

p.s. перечитал тему... А что значит - несколько типов в один файл? может я неправильно понял, что Вам надо?!

Допустим я знаю что нужно использовать TfileStram для этого. Проблема вот в чем, допустим у нас есть заполненная структура разными данными:

type
Tsmth = record
Name:string[255]; //Петр
Author:string[150]; //Пётр Васильков
end;

и

type
Tsmth = record
Name:string[255]; //Женя
Author:string[150]; //Женя Борецкий
end;

Можно конечно создавать jenya.dat и petr.dat записав в каждый файл, данный тип но с разными данными. Но я ищу способ по проще, а именно забить все в один файл.

[_Engine_]

Сообщение от Человек_Борща

Можно конечно создавать jenya.dat и petr.dat записав в каждый файл, данный тип но с разными данными. Но я ищу способ по проще, а именно забить все в один файл.

Так уже ответили на вопрос.

[Пепел Феникса]

пиши последовательно, сначало одни данные потом другие.
(если ты вечно переоткрываешь файл(с очисткой), то естественно будут только последние данные)

[Sibedir]

Человек_Борща, у тебя не "несколько одинаковых типов", один тип и несколько переменных этого типа. Это разные вещи.

procedure TForm1.Button1Click(Sender: TObject);
var
  f: file of Tsmth;
  fs: TFileStream;
  a: array of Tsmth;
  i: Integer;
  FileName: String;
begin
  // ЗАПИСЬ
  SetLength (a, 3);
  a[0].Name := '1';
  a[0].Author := '111';
  a[1].Name := '2';
  a[1].Author := '222';
  a[2].Name := '3';
  a[2].Author := '333';

  // Вариант 1
  FileName := '1.dat';
  AssignFile (f, FileName);
  Rewrite(f);
  for i := 0 to Length(a)-1 do
    Write (f, a[i]);
  CloseFile(f);

  // Вариант 2
  FileName := '2.dat';
  fs := TFileStream.Create (FileName, fmCreate);
  fs.Write (Pointer(a)^, Length(a) * SizeOf(Tsmth));
  fs.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  f: file of Tsmth;
  fs: TFileStream;
  a: array of Tsmth;
  i: Integer;
  FileName: String;
begin
  // ЧТЕНИЕ

  // Вариант 1
  FileName := '1.dat';
  AssignFile (f, FileName);
  Reset(f);
  SetLength (a, FileSize(f));
  for i := 0 to Length(a)-1 do
    Read (f, a[i]);
  CloseFile(f);

  // Вариант 2
  FileName := '2.dat';
  fs := TFileStream.Create (FileName, fmOpenRead);
  SetLength (a, (fs.Size div SizeOf(Tsmth)));
  fs.Read (Pointer(a)^, fs.Size);
  fs.Free;
end;