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

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.