Форма входа
0/0
Пишем программу для создания книг FB2 (СИ) - Карпов Юрий
- Дата:20.06.2024
- Категория: Компьютеры и Интернет / Программное обеспечение
- Название: Пишем программу для создания книг FB2 (СИ)
- Автор: Карпов Юрий
- Просмотров:5
- Комментариев:0
Уважаемые читатели!
Тут можно читать бесплатно Пишем программу для создания книг FB2 (СИ) - Карпов Юрий. Жанр: Программное обеспечение. Так же Вы можете читать полную версию (весь текст) онлайн книги без регистрации и SMS на сайте Knigi-online.info (книги онлайн) или прочесть краткое содержание, описание, предисловие (аннотацию) от автора и ознакомиться с отзывами (комментариями) о произведении.
Описание онлайн-книги Пишем программу для создания книг FB2 (СИ) - Карпов Юрий:
Подробный комментарий к исходному коду программы создающей книжку в формате FB2.
Читем онлайн Пишем программу для создания книг FB2 (СИ) - Карпов Юрий
Шрифт:
-
+
Интервал:
-
+
Закладка:
Сделать
('uk', 'Украинский'),
('fi', 'Финский'),
('fr', 'Французский'),
('cs', 'Чешский'),
('et', 'Эстонский'),
('ja', 'Японский')
);
implementation
end.
// конец кода
А это - файл проекта
my_FB2.dpr
// начало кода
program my_FB2;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
genres in 'genres.pas' {Form3},
authors in 'authors.pas' {Form2},
EditStr in 'EditStr.pas' {EditSt};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TEditSt, EditSt);
Application.Run;
end.
// конец кода
Попробовал выполнить собственные инструкции, оказалось забыл еще один файл. А так ничего, "поругался" Дельфи на отсутствие ресурсного файла, да ничего он сам его сделает. А забытый, вот он:
UmFB2.pas
// начало кода
unit UmFB2;
interface
uses
Classes, SysUtils, Dialogs;
Type
TmyStyle = (
Norm, Epig, Auth, Sub, Poem, Citat, None,
ZZ, // пустой тип
H1, H2, H3, H4, H5 );
var
SytleStack : TList;
// StyleList : TList;
OutList : TStringList;
EndNotes_count: integer;
// Path : string;
function GetStyle(S:string; var m:TmyStyle):string;
function GetStr(S:string):string;
procedure PrintString(St, E : string);
implementation
procedure PrintString(St, E : string);
begin
if E <> '' then
OutList.Add(' <'+St+'>'+E +'</'+St+'>');
end;
function GetStyle(S:string; var m:TmyStyle):string;
var
n : byte;
ss : string;
begin
n := pos('|', S);
ss := copy(s,1,n-1); // стиль
case ss[length(ss)] of
'N' : m := Norm;
'E' : m := Epig;
'A' : m := Auth;
'1' : m := H1;
'2' : m := H2;
'3' : m := H3;
'4' : m := H4;
'5' : m := H5;
'S' : m := Sub;
'P' : m := Poem;
'C' : m := Citat;
'-' : m := None;
end;// case
delete(s,1,n+1); // текст
result := S;
end;
function GetStr(S:string):string;
var
n : byte;
begin
n := pos('|', S);
delete(s,1,n+1); // текст
result := S;
end;
BEGIN
SytleStack := TList.create;
OutList := TStringList.Create;
// StyleList := TList.Create;
END.
// конец кода
Ну вот и весь исходник.
Успехов.
w_cat.
notes
Примечания
1
Эти стихи, не имеют никакого отношения к теме. Ну просто, они мне нравятся.
На этой странице вы можете бесплатно читать книгу Пишем программу для создания книг FB2 (СИ) - Карпов Юрий бесплатно.
Похожие на Пишем программу для создания книг FB2 (СИ) - Карпов Юрий книги
- Цифровой журнал «Компьютерра» № 184 - Коллектив Авторов - Прочая околокомпьтерная литература
- Цифровой журнал «Компьютерра» № 197 - Коллектив Авторов - Прочая околокомпьтерная литература
- Журнал Компьютерра 19-26.01.2010 - Коллектив Авторов - Прочая околокомпьтерная литература
- Аквариум. (Новое издание, исправленное и переработанное) - Виктор Суворов (Резун) - Шпионский детектив
- Первопонятия. Ключи к культурному коду - Михаил Наумович Эпштейн - Культурология / Науки: разное
