Вверх ↑
Ответов: 2059
Рейтинг: 131
#1: 2022-05-21 16:04:02 ЛС | профиль | цитата
Sersey, наверняка в RE_Search, а точнее в RegExpr.pas есть недоделки.
Мне когда то понадобилось делить текст на предложения и слова(задача не простая, как может показаться) не одного компонента нормально работающего не нашёл! Что мне надо было - допилил в RE Search, а остальное практически не трогал. Этим надо заниматься..., или когда приспичит. Если такая схема будет нормально работать, то вот этот компонент и надо допиливать.

Add(Button,3126655,56,238)
{
Left=665
Top=5
link(onClick,4880804:doExecute,[])
}
Add(ODialog,4880804,119,238)
{
Filter="All|*.txt"
link(onExecute,8606974:doLoad,[(167,244)(167,181)])
}
Add(MainForm,4093148,63,175)
{
Width=880
Height=565
}
Add(Memo,8259123,323,271)
{
Top=377
Width=872
Height=160
Align=4
ScrollBars=2
Point(doSetSelStart)
}
Add(Edit,16768161,287,168)
{
Left=25
Top=5
Width=465
Height=30
Font=[MS Sans Serif,14,0,0,1]
Text="([А-ЯA-Z|–|—|«|"]((\..\..|н. э.)|[^\n…?!.\(]|\([^\)]*\))*[\n….?!]+)"
}
Add(Button,9345993,35,280)
{
Left=500
Top=5
link(onClick,2414294:doEvent1,[(89,286)(89,279)])
}
Add(RE_Search,5386917,203,252)
{
link(onMatch,999126:doEvent1,[(243,258)(243,244)])
link(SourceStr,8606974:Text,[(209,232)(188,232)])
link(Expression,16768161:Text,[(216,226)(293,226)])
}
Add(Button,10206297,98,301)
{
Left=575
Top=5
link(onClick,1191662:doWork2,[(166,307)(166,265)])
}
Add(Hub,999126,252,238)
{
OutCount=4
link(onEvent1,8259123:doAdd,[(291,244)(291,277)])
link(onEvent2,7399570:doOperation,[(278,251)(278,314)(149,314)(149,377)])
link(onEvent3,15111858:doData,[(278,258)(278,318)(219,318)(219,377)])
link(onEvent4,1191662:doWork1,[(278,265)(278,256)(179,256)])
}
Add(DoData,15111858,231,371)
{
link(onEventData,8606974:doSetSelLength,[(289,377)(289,289)(170,289)(170,202)])
link(Data,5386917:MatchLen,[(237,327)(223,327)])
}
Add(Math,7399570,161,371)
{
OpType=1
Op2=1
link(onResult,8606974:doSetSelStart,[(205,377)(205,286)(170,286)(170,195)])
link(Op1,5386917:MatchPos,[(167,327)(216,327)])
}
Add(Hub,2414294,112,273)
{
link(onEvent1,8259123:doClear,[(221,279)(221,284)])
link(onEvent2,5386917:doExec,[(164,286)(164,258)])
}
Add(Scintilla,8606974,182,147)
{
Top=47
Width=872
Height=330
Align=4
Font=[Courier New,10,0,0,1]
Strings=#457:Как правило, в мирах научной фантастики люди живут везде. А если «везде» и не люди, то всё равно в чужих землях хомо сапиенс, как правило, могут существовать без скафандра. Заселены все звёздные системы с собственными именами, а часто обитаемых планет по несколько штук в каждой системе. Для художественного произведения это в порядке вещей и вопросов не вызывает, потому что, как правило, для реализации идеи достоверность не нужна, нужна правдоподобность.|0:|22:А что же в реальности?|0:|33:А реальность — бессердечная сука.|0:|149:Начну с главного, что определяет условия в родной хате — со звезды. Все известные нам звёзды делятся на несколько спектральных классов. Вот основные:|0:|235:Класс О — очень горячие (30000-60000 °K) голубые звёзды. Очень молодые (порядка десятков миллионов лет). По причине молодости никаких планет у них быть не может, а если и захватят какую планету-сироту, ничего хорошего бедняжку не ждёт.|0:|885:Класс B — горячие голубовато-белые звёзды. Примеры — ? Ориона, то бишь Ригель, и Плеяды. Ригель — звезда довольно известная, но, увы, безжизненная. Её светимость — в среднем примерно 130000 солнечных. Дальнейшие комментарии, полагаю, излишни, но я продолжу: Ригель, как и многие другие звёзды класса B, вдобавок ещё и переменный, а его возраст — всего 8 млн лет, что исключает наличие родных планет — они попросту не успели сформироваться. Захваченная же из космоса планета-сирота должна обращаться вокруг него на расстоянии минимум 400 а.е. (для сравнения — афелий Плутона всего каких-то жалких 50), причём из-за переменности материнской звезды на ней с периодом примерно в 20 дней будет то жара, то чудовищный холод. Год на ней будет длиться сотни лет. Бедные тамошние детишки — они не знают, что такое день рождения. Впрочем, им бы вообще выжить для начала под этим адским светилом…|0:|1180:Класс А — это горячие белые звёзды. Типичный пример — всем известный Сириус, крайне популярный и любимый фантастами. Увы, любителя фантастики тут тоже ждёт разочарование: своих планет у Сириуса быть не может — слишком молод. Жалкие 280 млн лет — для нормальной звезды это младенчество, а для белых — пора зрелости, потому что они всего живут около миллиарда, после чего превращаются в красных гигантов с понятным результатом для всех окружающих объектов. В случае же Сириуса имеется ещё и спутник — Сириус B, которые уже прошёл стадию гиганта и испепелил всё вокруг (Сириуса С, к сожалению, не существует, догоны насвистели). Другими словами, у Сириуса, скорее всего, планет попросту нет, а если и были, давно прогорели. Если же он всё-таки ухитрился захватить из космоса что-то блуждающее, то для приемлемой температуры расстояние от планеты до него должно составлять 4,6 а.е. — это чуть ближе, чем от Солнца до Юпитера. В принципе, нормальная орбита, но Сириус также испускает сильное ультрафиолетовое и рентгеновское излучение — даже научная база в таких условиях вряд ли будет располагаться на поверхности планеты. Печаль, в общем. Не позагорать нам под белым солнцем пустыни.|0:|384:Класс F — жёлтые звёзды, чуть горячее Солнца. Типичный пример — Процион, не совсем типичный — Канопус. Светимость Проциона — 7,7 солнечных, а Канопуса — 15100, и вдобавок он, как и Сириус, очень любит рентгеновский спектр. Располагающийся там по версии Фрэнка Герберта Арракис был бы совершенно безжизненным каменным шаром, на который без экзоскелета выйти смог бы разве что Супермен.|0:|383:У Проциона и большинства остальных F-звёзд шансов больше, но его потенциальные планеты слишком молоды (около 1,7 млрд лет), и вряд ли встретят экспедиторов приятными условиями. При этом на Проционе побывали и Сергей Снегов, и Ларри Нивен, и ещё немало фантастов (и я вот тоже теперь), и это первые в нашем списке места, где вообще возможно хоть какое-то существование и терраформинг.|0:|458:Класс G — жёлтые звёзды, к которым относится и наше Солнце. Пока что это единственная звезда, на планете у которой обнаружена жизнь, так что другие вопросы, полагаю, излишни. Типичный пример такой звезды — это Альфа Центавра А, по которой не потоптался только ленивый. И, собственно, не зря: это действительно один из самых серьёзных кандидатов на наличие внеземной жизни. В ту же копилку идёт Тау Кита, которая тоже гиперпопулярна в фантастике. Есть за что.|0:|346:Класс K — оранжевые звёзды. К таковым относится, например, Эпсилон Индейца, Эпсилон Эридана, Альфа Центавра B и ещё целый набор. Это тусклые холодные звёзды, которые, впрочем, вполне могут поддерживать жизнь. Полуоси орбит обитаемых планет у таких звёзд будут гораздо меньше, чем у Земли, а значит, и год короче. В остальном они похожи на Солнце.|0:|195:Класс M — красные карлики. Собственно, весь список выше — это меньше 20 % звёзд Млечного пути, а все остальные — это как раз красные карлики. Наиболее известный пример такого — Проксима Центавра.|0:|369:В качестве исключения класс М имеют красные гиганты вроде Бетельгейзе. Именно вокруг Бетельгейзе вращается Сорора из оригинальной «Планеты обезьян». Увы, жизнь там вряд ли возможна: её светимость — переменная, от 40000 до 100000 солнечных, да к тому же звезда дышит на ладан и вполне может взорваться в ближайшие годы (ближайшие — это не миллион лет, а гораздо меньше).|0:|168:Если же вернуться к красным карликам, то один только вопрос о том, насколько вероятна жизнь на планете у такой звезды, уже генерирует ворох идей для научной фантастики.|0:|407:Во-первых, планет у таких звёзд известно немало. А буквально недавно NASA устроило целую пресс-конференцию по причине открытия в системе TRAPPIST-1 аж четырёх планет (присутствовали пять астрономов и астрофизиков, которые с нескрываемым восторгом про эти планеты рассказывали), в дополнение к трём имеющимся. Все семь планет близки по размеру к Земле, и из них три находятся в обитаемой зоне. Круто, однако.|0:|505:Во-вторых, сама по себе такая планета достаточно специфична. Период её обращения в случае TRAPPIST-1 составляет от 6 до 12 дней — если несчастные дети Ригеля не празднуют день рождения никогда, то здесь ребятишки уподобляются мальчику из анекдота, который пожелал праздновать его каждый день и умер через два месяца. Планеты эти из-за близости к звезде оказываются в приливном захвате, подобно Меркурию, и всегда обращены к светилу одной стороной. Что творится на её поверхности — можете себе представить.|0:|382:Есть, однако, и куча проблем. Первая — это, разумеется, приливный захват. Вечный день на одной стороне и вечная ночь на другой — жить, скорее всего, можно либо под землёй, либо в зонах вдоль колеблющегося из-за либраций терминатора. Вторая — вспышки. Красные карлики — нестабильные звёзды, они часто вспыхивают, буквально сдувая атмосферу со своих планет. С понятными последствиями.|0:|208:Может ли человек существовать на такой планете без скафандра? Чёрт его знает, дебаты по этому поводу пока не утихают. Но ведь и смысл научной фантастики именно в том, чтобы пытаться ответить на такие вопросы.|
IndentationGuides=0
VLines=0
WrapVisualFlags=0
ScrollBars=2
Point(doSetSelStart)
Point(doSetSelLength)
Point(doEnsureVisible)
}
Add(HubEx,1191662,175,259)
{
link(onEvent,5386917:doExecNext,[])
}

карма: 6

0
Редактировалось 4 раз(а), последний 2022-05-21 16:15:39