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,[]) }
Редактировалось 4 раз(а), последний 2022-05-21 16:15:39
|