Хранение данных в 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.