Пишем программу для создания книг FB2 (СИ) полностью

'

' xmlns: l="http://www.w3.org/1999/xlink">',

' ',

' '

);

var i: byte;

begin

// Выводим в выходной файл начало FB2 файла

for i:= 1 to max do

OutList.Add(Mas[i]);

// конец кода

Дальше просматриваем списки Жанров, Автором и Переводчиков и выводим оттуда информацию (если она там есть).

Т.е. проверяем все заполненные поля форм описывающих книгу и выводим информацию в соответствующие секции заголовка книги.

Будем считать, что с Description - покончили.

Осталось только

// начало кода

procedure SaveEndnotes;

var

S: string;

i: integer;

begin

if Form1.EndNotesList.Items.Count = 0 then exit;

OutList.Add('');

for i:= 0 to Form1.EndNotesList.Items.Count - 1 do

begin

S:= Form1.EndNotesList.Items[i];

OutList.Add('

OutList.Add('

'+S+'

OutList.Add('');

end;

OutList.Add('