Ну, примитивный способ - использовать записи:
type
TData = record
id : integer;
description : string[255];
picture : array [1..1024,1..768] of integer;
end;
На лицо сразу куча недостатков, некоторая ограниченность метода и избыточность размера файлов.
Лучше всего конечно использовать базу данных, но если это по какой-либо причине нельзя делать, выход - использовать механихм blockread и blockwrite с обычными file of byte, записывая в файл информацию побайтово, кусками, сначала Id, затем описание, затем саму картинку, но так как размер описания и картинки может быть разным, лучше еще и их размер указывать. Также придется выделить область в файле для индека - чтоб выборку делать быстро, а не перебирать все варианты.
|