КулЛиб - Классная библиотека! Скачать книги бесплатно
Всего книг - 714295 томов
Объем библиотеки - 1412 Гб.
Всего авторов - 275021
Пользователей - 125159

Новое на форуме

Новое в блогах

Впечатления

чтун про серию Вселенная Вечности

Все четыре книги за пару дней "ушли". Но, строго любителям ЛитАниме (кароч, любителям фанфиков В0) ). Не подкачал, Антон Романович, с "чувством, толком, расстановкой" сделал. Осталось только проду ждать, да...

Рейтинг: 0 ( 0 за, 0 против).
Влад и мир про Лапышев: Наследник (Альтернативная история)

Стиль написания хороший, но бардак у автора в голове на нечитаемо, когда он начинает сочинять за политику. Трояк ставлю, но читать дальше не буду. С чего Ленину, социалистам, эссерам любить монархию и терпеть черносотенцев,убивавших их и устраивающие погромы? Не надо путать с ворьём сейчас с декорациями государства и парламента, где мошенники на доверии изображают партии. Для ликбеза: Партии были придуманы ещё в древнем Риме для

  подробнее ...

Рейтинг: 0 ( 0 за, 0 против).
Влад и мир про Романов: Игра по своим правилам (Альтернативная история)

Оценку не ставлю. Обе книги я не смог читать более 20 минут каждую. Автор балдеет от официальной манерной речи царской дворни и видимо в этом смысл данных трудов. Да и там ГГ перерождается сам в себя для спасения своего поражения в Русско-Японскую. Согласитесь такой выбор ГГ для приключенческой фантастики уже скучноватый. Где я и где душонка царского дворового. Мне проще хлев у своей скотины вычистить, чем служить доверенным лицом царя

  подробнее ...

Рейтинг: +1 ( 1 за, 0 против).
kiyanyn про серию Вот это я попал!

Переписанная Википедия в области оружия, изредка перемежающаяся рассказами о том, как ГГ в одиночку, а потом вдвоем :) громил немецкие дивизии, попутно дирижируя случайно оказавшимися в кустах симфоническими оркестрами.

Нечитаемо...


Рейтинг: +2 ( 3 за, 1 против).
Влад и мир про Семенов: Нежданно-негаданно... (Альтернативная история)

Автор несёт полную чушь. От его рассуждений уши вянут, логики ноль. Ленин был отличным экономистом и умел признавать свои ошибки. Его экономическим творчеством стал НЭП. Китайцы привязали НЭП к новым условиям - уничтожения свободного рынка на основе золота и серебра и существование спекулятивного на основе фантиков МВФ. И поимели все технологии мира в придачу к ввозу промышленности. Сталин частично разрушил Ленинский НЭП, добил его

  подробнее ...

Рейтинг: +6 ( 6 за, 0 против).

Пишем программу (в Delphi) для создания книг FB2 [Юрий Карпов] (fb2) читать постранично, страница - 12


 [Настройки текста]  [Cбросить фильтры]

'Юмористическая фантастика'),

//Юмор

('humor_anecdote', 'Анекдоты'),

('humor', 'Юмор'),

('humor_prose', 'Юмористическая проза'),

('humor_verse', 'Юмористические стихи')

);

maxI = 18;

LI: array[0..maxI] of integer = (

0, // Деловая литература

16, // Детективы и Триллеры

28, // Детское

36,// Документальная литература

42, //Домоводство

52, // Компьютеры и Интернет

60, // Любовные романы

67, // Наука, Образование

93, // Периодика

94, //Поэзия, Драматургия

96, // Приключения

106,// Проза

111,// Прочее

113, //Религия и духовность

118, //Справочная литература

124, //Старинное

130,//Техника

134, //Фантастика

147 //Юмор

);

maxL = 23;

Lg: array[0..maxL] of gr = (

('', ''),

('en', 'Английский'),

('be', 'Белорусский'),

('bg', 'Болгарский'),

('hu', 'Венгерский'),

('nl', 'Голландский'),

('el', 'Греческий современный (1453-)'),

('da', 'Данийский'),

('grc', 'Древнегреческий (до 1453)'),

('he', 'Иврит'),

('it', 'Итальянский'),

('de', 'Немецкий'),

('pl', 'Польский'),

('pt', 'Португальский'),

('ru', 'Русский'),

('sk', 'Словакский'),

('sl', 'Словенский'),

('tr', 'Турецкий'),

('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.

Примечания

1

Эти стихи, не имеют никакого отношения к теме. Ну просто, они мне нравятся.

(обратно)