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

[PavelDAS]

Есть типизированный файл baza.das.

Значения из файла в массив передаются так:

procedure TForm1.FormActivate(Sender: TObject);
begin
col_strok:=0;
AssignFile(f,'baza.das');
reset(f);
while not(eof(f)) do
begin
read(f,mas_id[col_strok]);
inc(col_strok);
end;
CloseFile(f);

Label1.Caption:=Label1.Caption+' '+IntToStr(col_strok);
end;

res.rc

;базы
izdateli RT_RCDATA "izdateli.das"
baza RT_RCDATA "baza.das"

=============

const col=1250;
type das_baza=record
      id: longint;
      id_game: string[35];
      name: string[100];
      izd: string[50];
      metka: string[16];
      date_f: string[9];
    end;

var
    f: file of das_baza;
    col_strok:longint;
    mas_id: array[0..col] of das_baza;

==========
А как сделать так, чтобы значения из файла ресурсов передавались в массив (res.RES)?

{$R .\Debug\Win32\res.RES}

Что дальше?

[Stilet]

http://delphiworld.narod.ru/_all_articles_.html
раздел Ресурсы - [35]
Там есть загрузка файлов из ресурсов

[PavelDAS]

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

http://delphiworld.narod.ru/_all_articles_.html
раздел Ресурсы - [35]
Там есть загрузка файлов из ресурсов

Посмотрел. Ближайшее по смыслу:
Загрузить RTF файл из ресурса своего EXE

procedure TForm1.BitBtn5Click(Sender: TObject);
 var
  rStream: TResourceStream;
begin
rStream := TResourceStream.Create(hInstance, 'baza', RT_RCDATA) ;
end;

а как перевести записи из файла в массив то?

[Serge_Bliznykov]

PavelDAS
мне кажется, что я мог бы написать Вам рабочий пример.

Вот только я предварительно хотел бы уточнить, что Вы понимаете, что Вы собственно хотите сделать...

Почему Вы не хотите воспользовать ОТДЕЛЬНЫМ типизированным файлом, как это было задуманно разработчиками изначально?

Вы понимаете, что Вы автоматически теряете смысл использования типизированного файла (прямой доступ к любой записи файла, неограниченный свободной памятью размер типизированного файла, возможность изменить любую запись..) ?

Файл, находящийся в ресурсах будет представлять собой константу (изменить находящие в exe данные самому EXE крайне сложно и затруднительно), поэтому данные в Вашем типизированном ресурсном файле Вы изменить не сможете, это понятно?

Если Вы понимаете, что делаете, то я помогу написать Вам пример кода по чтению типизированного файла в массив записей (кстати, в Delphi для этого удобно будет воспользоваться динамическим массивом).

[PavelDAS]

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

Вот только я предварительно хотел бы уточнить, что Вы понимаете, что Вы собственно хотите сделать...

Почему Вы не хотите воспользовать ОТДЕЛЬНЫМ типизированным файлом, как это было задуманно разработчиками изначально?

Есть программа IDCheck Editor (только для меня) для редактирования базы (типизированных файлов baza.das и izdateli.das), а есть IDCheck Reader (для всех).
Мне бы хотелось чтобы IDCheck Reader состоял из 1 файла. Сейчас там 2 файла - IDCheck_Reader.exe и baza.das.

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

Вы понимаете, что Вы автоматически теряете смысл использования типизированного файла (прямой доступ к любой записи файла, неограниченный свободной памятью размер типизированного файла, возможность изменить любую запись..) ?

Файл, находящийся в ресурсах будет представлять собой константу (изменить находящие в exe данные самому EXE крайне сложно и затруднительно), поэтому данные в Вашем типизированном ресурсном файле Вы изменить не сможете, это понятно?

В IDCheck Reader'е мне это как раз и нужно, чтобы нельзя было редактировать файл базы.

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

Если Вы понимаете, что делаете, то я помогу написать Вам пример кода по чтению типизированного файла в массив записей (кстати, в Delphi для этого удобно будет воспользоваться динамическим массивом).

Помогли бы немного улучшить программу
Возможно, можно было IDCheck Reader сделать как-то по другому, но я решил сделать через типизированные файлы.