База данных в игре

[unicode]

Доброе время суток.
Решил я написать игрулину, и пришла задача реализовать базу данных в игре. Как это можно сделать? Я думал про ини файлы.
задача - что бы в базе было название, путь к картинке, и описание.
массивы не предлагать, т.к. в дальнейшем база может быть настолько велика что оперативу будет жрать не мерено.
спасибо.

[DeKot]

Немного не понятно назначение базы данных

задача - что бы в базе было названиечего?, путь к картинке, и описаниечего?.

Если назначение базы - поддержка игровых ресурсов (рисунки, карты уровней, значения величин переменных, текстовые квесты и т. п.), то для этого подходят как ини - файлы , так и просто текстовые, файлы ресурсов (для изображений) или же dll.

[unicode]

Пример:
Название - AMD Athlon 64 X2 2.2GHz
картинка - путь к фотке
Описание - Два ядра и т.д.

[DeKot]

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

Пример:
Название - AMD Athlon 64 X2 2.2GHz
картинка - путь к фотке
Описание - Два ядра и т.д.

Ну и как Вы себе представляете использование этих данных в игровой программе?

[Levsha100]

...XML or Access...

[unicode]

@DeKot, AMD Athlon 64 X2 2.2GHz находится в ComboBox, картинка и описание загружается соответственно в TImage и Label, когда в ComboBox находится определенное название, тоесть AMD Athlon 64 X2 2.2GHz

[VintProg]

Предлогаю новый формат разработать для удобства:

type
 TDataBase = record
    BaseName,PathImage,description  : string;
  end;

[unicode]

@VintProg, спасибо, попробую

[VintProg]

Можно сделать и так:

type
 TDataBase_Header = record //Голова файла
   amount : integer;   //Кол-во  TDataBase
  end;

 TDataBase = record
    BaseName,PathImage,description  : string;
  end;

Можно и так:

type
 TDataBase_Header = record //Голова файла
   amount : integer;   //Кол-во  TDataBase
  end;

 TDataBase = record
    BaseName,PathImage,description  : array[0..255] of char;
  end;

потом создайте объект TFileStream;

и записывайте и читайте структурой TDataBase
а эту TDataBase_Header можно использовать для кол-во циклов

var
FileBs : TFileStream;


function CreateBs(fileName:string):integer;
var
DbHead:  TDataBase_Header;

begin
 FileBs := TFileStream.create('Data.db',fmCreate);
 FileBs.Read(DbHead,SizeOf(TDataBase_Header));
 result := DbHead.amount;
end;

function ReadBase(index:integer):TDataBase;
begin

for i:=0 to index do
 begin
  FileBs.Read(DataBase,SizeOf(TDataBase));
  result := DataBase;
 end;

end;

примерно так,
пока это 1-способ.

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

а зачем заголовок-то?
до EOF читать же можно
кстати а String же не имеет фиксированной длинны...аккуратнее с этим.