Сохранение файлов в ini-файле

Возникла необходимость сохранить несколько файлов для бекапа. Т.к. размер файлов не превышает 20 кб решил сделать это в ini файле. Возможно не совсем удачной способ, но простой. Сохраняю файл так:
var  ini:TIniFile;  FS: TFileStream;begin  FS := TFileStream.Create('D:\index.rar', fmOpenRead);  Ini:=TiniFile.Create(sPatch + 'demo.ini');  ini.WriteBinaryStream('1','2',FS);  ini.Free;  FS.Free;end;
Помогите с кодом извлечения, с потоками только начал разбираться.
2 ответа

i:=ini.readbinarystream('1','2',FS);FS-файлстрим для записи бинаридата, будет записана дата эта в позицию seek и дальше. i - количество считанных байтов.  вообще, в хелпе почитайте, пм ограничение есть на 1023 символа.


Спасибо, а про ограничение я забыл. Точнее помнил, что как то можно увеличить количество сохраняемых символов. Правкой IniFiles кажется. Но, видимо лучше использовать XML документ для такого сохранения. Может кто подскажет лучший вариант для сохранения десятка-два маленьких файлов в одном файле. Требования такие:- не использовать БД- легкая реализация типа как в ini: записал - считал- к файлу будет прилагаться запись md5, возможно еще какие-то записи