Хранение данных в EXE-файле

Code:

Type

TStrItem = String[39];  { 39 символов + байт длины -> 40 байтов }

TDataArray = Array [0..7, 0..24] of TStrItem;

Const

Data: TDataArray = (

('..', ...., '..' ),  { 25 строк на строку }

...                   { 8 таких строк }

('..', ...., '..' )); { 25 строк на строку }

Code:

program MakeData;

type

TStrItem = string[39]; { 39 символов + байт длины -> 40 байтов }

TDataArray = array[0..7, 0..24] of TStrItem;

const

Data: TDataArray = (

   ('..', ...., '..'), { 25 строк на строку }

   ... { 8 таких строк }

   ('..', ...., '..')); { 25 строк на строку }

var

F: file of TDataArray;

begin

Assign(F, 'data.dat');

Rewrite(F);

Write(F, Data);

Close(F);

end.

Code:

{ в секции interface модуля  }

type

TStrItem = string[39]; { 39 символов + байт длины -> 40 байтов }

TDataArray = array[0..7, 0..24] of TStrItem;

PDataArray = ^TDataArray;

const

pData: PDataArray = nil; { в Delphi 2.0 используем Var }

implementation

{$R DATA.RES}

procedure LoadDataResource;

var

dHandle: THandle;

begin

{ pData := Nil; если pData - Var }

dHandle := FindResource(hInstance, 'DATAARRAY', RT_RCDATA);

if dHandle <> 0 then

begin

   dhandle := LoadResource(hInstance, dHandle);

   if dHandle <> 0 then

     pData := LockResource(dHandle);

end;

if pData = nil then

   { неудача, получаем сообщение об ошибке с помощью

   WinProcs.MessageBox, без помощи VCL, поскольку здесь код

   выполняется как часть инициализации программы и VCL

   возможно еще не инициализирован! }

end;

initialization

LoadDataResource;

end.