Keeper's blog

Прогноз на 2012 год (М. Хазин)

2012-01-27T19:45:00.000+04:00

Как нас учат майя, это последний год существования света. Мы, к счастью, оптимисты, поэтому считаем, что «конец света» - это просто неправильная интерпретация, а на самом деле в календаре майя просто начинается новый «большой» год. Но в любом случае, наступивший год можно назвать рубежным – и не только с точки зрения майя, очень многие факторы говорят об этом. А потому, начнем мы сегодняшний обзор с краткого обзора развития мировой экономики за последние 30 лет.

С начала 80-х главным фактором роста мировой экономики стало кредитное стимулирование частного спроса, которое принципиально изменило сам подход к долгу и кредиту. Если раньше предполагалось, что заемщик должен выплатить все долги из своих доходов, то после начала политики «рейганомики» в 80-е годы, кредиторов стала интересовать только возможность заемщика обслуживать кредит, а в качестве гарантий возврата стал выступать залог. Как следствие, общий объем долга всех субъектов экономики по отношению к их доходам сильно (примерно в два раза) вырос относительно предыдущего периода истории.

Отметим, что вся эта модель работала только до тех пор, пока можно было снижать стоимость кредита, поскольку построена она на рефинансировании долга. В США этот период закончился в 2008 году (учетная ставка ФРС США снизилась до, практически, нуля), в Евросоюзе это происходит у нас на глазах. Ответа, что делать дальше пока нет, спрос падает, долги давят, и все участники экономического процесса занимаются ситуационным реагированием на поступающие вызовы. Анализировать их поведение достаточно сложно, поскольку большую роль при этом играют субъективные и политические моменты. Но делать это все равно приходится, и по этой причине я перехожу к первой традиционной части годового прогноза: анализу прогноза на предыдущий, 2011 год.

Ключевое место в прогнозе занимали рассуждения о том, смогут ли США избежать начала очередного этапа эмиссионного стимулирования экономики и делался вывод о том, что вероятность этого события велика, но, теоретически, возможно, что этого можно будет избежать. Именно этот вариант, как мы видим, и воплотился на практике, и не исключено, что свою роль сыграла ситуация в Европе, в частности, колоссальная по объему (не менее 700 миллиардов в долларовом эквиваленте) эмиссия евро, проведенная в конце 2011 года.

Как и предполагалось в прогнозе, ФРС активно выкупала облигации федерального казначейства США, а в прессе (и, видимо, в кулуарах) шла активная дискуссия о необходимости дальнейшего стимулирования экономики. Более того, в конце года уже появились утечки о том, что в первом квартале 2012 года эмиссию ФРС неминуемо начнет, но, как уже было отмечено, в реальности начал эмиссию ЕвроЦентробанк, так что не исключено, что эти утечки оказались ложными.

Отдельное место было уделено возможным причинам резкого «слома» экономической ситуации, среди которых была упомянута возможная агрессия США (и НАТО) в Иране, однако проблемы в Ливии и Египте оценены не была, что, безусловно, является недостатком прогноза.

Принципиальным вопросом, который занял значительную часть прогноза, стал возможный «перелом» макроэкономической тенденции и здесь можно только отметить, что хотя общая ситуация в мире и ухудшается, однако до «слома» глобальной тенденции пока дело не дошло. При этом проблемы сокращения спроса, о которых много говорилось в прогнозе, сыграли свою принципиальную роль. И политический кризис в США, связанный с требованиями Обамы увеличить дефицит бюджета, и проблемы с недвижимостью Китая, и протесты против «реформ» в странах зоны евро – все это, на самом деле, именно проблемы борьбы с сокращающимся частным спросом. И в этом месте логика прогноза была безупречной.

При этом довольно значительная роль в прогнозе была уделена геополитическим последствиям борьбы за сокращающийся спрос. Это фактор не просто сыграл свою роль, он, в некотором смысле, стал определяющим, поскольку и постоянные обострения долгового кризиса в Европе, (здесь можно упомянуть только неожиданное начало обсуждения долговых проблем Италии сразу после того, как, казалось, разрешен кризис в Греции), и «арабская весна», и новая венгерская конституция, и даже неожиданное вступление России в ВТО – все это, как и многое другое, может быть объяснено в рамках процессов сокращения в мире совокупного спроса.

Зато программам «затягивания поясов» в мире и в Европе в прогнозе было уделено достаточно много места. Как и процессам формирования региональных валютных зон (напомним, что многие страны в 2011 году подписали договора о переходе в расчетах на национальные валюты, а страны Таможенного союза и вовсе начали говорить о переходе к единой валюте). Не менее важная роль в прогнозе отводилась описанию механизмов стимулирования спроса и в конце 2011 года эмиссия в мире все-таки началась, хотя и не в США, как я предполагал в прогнозе, а в зоне евро.

Евроцентробанк напечатал в декабре значительную сумму, не менее 700 миллиардов в долларовом эквиваленте, и не вызывает сомнений, что рано или поздно эти деньги, пусть и частично, пойдут на компенсацию падающего спроса. Собственно, сама эмиссия, как и аналогичные процессы в США в 2008-2009 годах, должна была предотвратить дефляционный обвал финансовой системы.

А вот США выбрали другой путь и откровенно начали поддерживать частный спрос среди наиболее бедных слоев населения за счет роста дефицита бюджета. Это вызвало в прошедшем году острый политический скандал, однако, тем не менее, дополнительный триллион долларов дефицита пошел на социальные выплаты, что позволило увеличить реально располагаемые доходы американских домохозяйств примерно на 10%.

Отдельно, перед переходом собственно к прогнозу, нужно отметить «дело Стросс-Кана». Дело в том, что сам по себе бывший глава МВФ не играл особо принципиальной роли в мировых раскладах, что хорошо видно по тому, насколько быстро он исчез с политического поля. Однако, волею судеб, он оказался на острие важнейшей комбинации, которая показала системный стратегический расклад, из которого в общем, можно делать определенные выводы по тем базовым сценариям, которые будут определять судьбы мира в ближайшие годы.

Суть этой комбинации была в создании на базе МВФ нового института – «центробанка центробанков», который должен был бы заниматься рефинансированием центробанков, примерно на тех же принципах на которых они сами рефинансируют коммерческие банки. Эта конструкция, во многом, носила объективно-экономический характер, поскольку позволяла создать еще один «этаж» в пирамидальной схеме передачи экономических рисков (более подробно см. здесь ). Однако были в ней и прагматические элементы: в 30-е годы прошлого века, уже после создания ФРС, в период дефляционного кризиса, те банки, которые имели прямой доступ к ее ресурсам, смогли существенно перераспределить в свою пользу все материальные и производственные активы в США. Не исключено, что такая возможность предусматривалась заранее, поскольку создавалась ФРС (включая знаменитое совещание у Дж.П.Моргана на острове Джекил осенью 1910 года) в период предыдущего дефляционного кризиса 1908-1914 гг.

Однако, если совещание на о.Джекил, как и последующая работа по созданию в 1913 году ФРС, проходила в глубокой тайне, сегодня вопросы о создание на базе МВФ «центробанка центробанков» проходили публично. Тогда самые главные лидеры мировой финансовой элиты отлично понимали, что создание надстройки над системой частных банков существенно ограничит возможности большинства этих структур по эмиссии собственных обязательств и создаст сильный политический противовес конституционной власти США. Сегодня ситуация совершенно аналогичная – только ограничения будут для национальных (или региональный, таких, как ЕЦБ) структур – что вряд ли понравится правительствам.

Именно это и случилось в США – американской бюрократии было абсолютно наплевать на Стросс-Кана лично, но именно он стал исполнителем в рамках всей схемы создания «центробанка центробанков» и именно его необходимо было «выбить» из уже начавшейся процедуры создания новой структуры, чтобы ее остановить. А не остановить нельзя – поскольку запрет на эмиссию для ФРС сегодня означает крушение долговой пирамиды США и, возможно, катастрофу на рынке казначейских облигаций.

Была ли такая публичность ошибкой мировой финансовой элиты, или она просто проверяла американскую бюрократию «на прочность», вопрос остается открытым, но факт остается фактом – пока все возможности по надстройке мировой финансовой системы закрыты и речь, таким образом, может идти только об эмиссии.

В заключение первой части прогноза можно отметить, что поскольку, по большому счету, доминирующую роль в ушедшем году играли именно те чисто экономические, механизмы, которые были описаны, можно считать, что прогноз на прошедший, 2011 год, оказался вполне удовлетворительным. И теперь пришла пора переходить собственно к прогнозу на уже начавшийся, 2012 год.

Начнем мы его с того, что повторим последние абзацы прогноза на год предыдущий: « ... Ключевым его элементом является точка перехода от инфляционного к дефляционному сценарию, которая зависит от устойчивости реального сектора экономики США. Этот переход может произойти и в 2011 году, и несколько позже, на основании имеющихся данных предсказать это невозможно. До тех пор, пока такой переход не произошел, в мире будет продолжаться примерно такая же экономическая картина, которая наблюдалась во второй половине предыдущего, 2010 года: рост цен сырьевого и продовольственного секторов, рост (с возможными резкими скачками вниз) на других спекулятивных рынках, в частности, фондовых биржах, общий рост безработицы, стагнация реального сектора, рост цен в одних секторах и падение – в других, ослабление мировой торговли реальными продуктами и постепенная регионализация мировой экономики. При этом спад совокупного спроса в мире, связанный с аналогичным спадом в США, будет продолжаться, несмотря на отдельные попытки его стимулировать.

В случае же, если переход произойдет, то мы получим традиционный дефляционный сценарий, с массовыми банкротствами, как финансового, так и реального сектора, резкое сокращение уровня жизни практически во всех странах мира, быстрый распад единой системы мирового разделения труда и начала процесса резкого упрощения всего процесса производства.»

Поскольку упомянутого перехода в 2011 году не произошло, эти слова остаются актуальными и на год 2012, но с одним принципиальным уточнением. Я не зря так подробно описал подоплеку «дела Стросс-Кана», поскольку дефляционный сценарий, так сказать, «в чистом виде» возможен только в том случае, если есть запрет на массовую эмиссию (как понятно, в индивидуальном варианте, когда некоторым, «особенно равным», товарищам «очень хочется», то для них – можно). Именно он был реализован в 30-е годы прошлого века, но тогда как раз ФРС и обеспечивала невозможность стимулирования частного спроса (некоторым дополнительным фактором стал «золотой стандарт»).

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

Это хорошо видно на примере США или Европы. Там даже очень серьезная эмиссия останавливалась в финансовом секторе, она приводила (с лагом в несколько недель, как минимум) лишь к росту цен на биржевые товары (нефть), что, в свою очередь, увеличивало издержки реального производителя, который, на фоне падающего спроса, пытался, пока была такая возможность, принимать их на себя. И только потом, когда такие возможности
исчерпывались, начиналось повышение цен, которое носило характер инфляции издержек.

В США, правда, серьезно увеличились социальные дотации (на, примерно, 1 триллион долларов, или около 10% реально располагаемых доходов домохозяйств в год), однако поскольку они только частично замещали падающий спрос, то монетарной инфляции, даже в тех секторах, в которых сосредоточен спрос бедных, не было. Но вот дальше начнутся интересные эффекты.

Поскольку частный спрос продолжает падать, экономика основных стран мира будет иметь явную тенденцию к спаду. По мере того, как это будет вызывать политические проблемы, власти будут требовать от центральных банков эмиссии, причем не просто эмиссии, а доведения денег до потребителей (через бюджеты или еще как-то). Будут, конечно, и исключения, например, малые страны зоны евро, которым просто эмиссию делать не дадут, но в них, скорее всего, будет происходить, в той или иной форме, социальная катастрофа, как сейчас в странах Прибалтики. А вот те страны, которые сегодня называются развитыми, имеют несколько вариантов действия.

Первый из них – пытаться продолжать нынешнюю политику, то есть заниматься активной поддержкой финансового сектора и крупного бизнеса и выборочной – отдельных социальных групп. Соответственно, эмиссия будет ограниченная и, главная, не будет приводить к росту монетарной инфляции в потребительском секторе. К сожалению, этот вариант практически исчерпан – и потому, что финансовому сектору денег нужно все больше и больше, и потому, что социальные проблемы лезут, что называется, «из всех щелей», и потому, что возможности наращивания долгов госбюджетами ограничены, а как повышать поддержку спроса непосредственно – не очень пока понятно.

По этой причине, я склонен считать, что политические элиты будут «держать» ситуацию до последнего предела, особенно, с учетом того обстоятельства, что в основных странах мира в ближайшие годы намечены выборы, а затем буду переходить на стагфляционный сценарий. Его специфика состоит в том, что эмиссионной накачкой будет компенсироваться частный спрос, но лишь частично.

Соответственно, до тех пор, пока этот сценарий не запущен, власти должны создавать инфраструктуру доведения эмиссионных денег непосредственно до потребителей. Скорее всего, делаться это будет постепенно, сначала для одних групп (наиболее бедных), потом для других, но эта работа должна быть проведена обязательно. Кроме того, поскольку вероятность банкротств отдельных компаний при таком сценарии существенно вырастет (реальный спрос будет падать), нужно будет создать институт защиты от умышленных мошенничеств, связанных с банкротствами. От таких операций сильно пострадало население, скажем, в США, в 30-е годы прошлого века, и там соответствующие структуры уже создаются.

Точно назвать точку «входа» в стагфляционный сценарий невозможно, поскольку он будет достаточно плавным. Но отправной момент – начало очередного этапа эмиссии, для США, скажем, скорее всего, будет именно в начавшемся, 2012, году. Главный вопрос, который при этом возникает: будет ли эта эмиссия полностью идти через бюджет или же, хотя бы частично, она попадет в финансовый сектор. Скорее всего, будет реализован именно последний вариант – финансовый сектор пока своего не упустит. И как только это произойдет, начнутся многочисленные последствия.

Прежде всего, быстрый рост спекулятивных рынков, в том числе, рынка нефти. Я не исключаю, что именно в преддверии этого сценария Обама решил «распечатать» нефтяные месторождения на шельфе, чтобы психологический удар по избирателям был не очень сильным (теоретически, этот рост цен может произойдет еще до выборов).

Примечание. Отметим, что война с Ираном, скорее всего, объяснением здесь быть не может, поскольку она, конечно, вызовет всплеск цен, но достаточно краткосрочный.

Однако, поскольку сегодня кредитный мультипликатор денежной массы уже не такой высокий, как это было в 2008-09 годах (около 5 против 17), то, скорее всего, деньги будут значительно быстрее «просачиваться» в реальный сектор, кроме того, свою роль сыграют и средства, которые потребители будут получать из бюджета.

В результате, потребительская инфляция начнет расти, хотя, поскольку этот рост будет сосредоточен в отдельных секторах, не исключено, что официальная статистика попытается ее не фиксировать или показывать в очень ограниченном масштабе. Но сам по себе рост цен может быть довольно значительным, в частности, может и опережать рост цен на нефть (напомним, что реальная нефть обычно торгуется с некоторым дисконтом относительно биржевых цен на фьючерсы). Этим, кстати, нынешний кризис будет отличаться от ситуации 70-х годов прошлого века, когда нефть росла ускоренными темпами.

Рост цен неминуемо вызовет рост социальной напряженности, особенно, в Евросоюзе, что потребует увеличения бюджетных расходов. В результате, инфляционная спираль будет раскручиваться все сильнее и сильнее – хотя, конечно, долгосрочные последствия будут за пределами текущего года. Однако самое главное, что будет окончательно сформирован стагфляционный сценарий, в некотором смысле гибрид сценария дефляционного и инфляционного.

Специфика его состоит в том, что эмиссия, которая предназначена для компенсации выпадающего частного спроса, вызывает инфляцию, которая, в свою очередь, вызывает обесценение тех реально располагаемых доходов, которые получает потребитель. По этой причине, чем выше эмиссия – тем сильнее спад реального спроса (в номинале, конечно, он может и расти), что вызывает, естественно, спад экономики. На первом этапе это может компенсироваться фиктивной прибылью финансового сектора, связанного с перераспределением эмиссионных денег, однако по мере развития кризиса, эта часть ВВП будет быстро сокращаться.

Иными словами, стагфляционный сценарий включат в себя и инфляционную, и дефляционную (последствия падения спроса) компоненты. И главным вопросом станет то, как именно эти компоненты, точнее, их последствия, будут перераспределены внутри экономики каждой страны. В частности, важной частью отношений внутри системы государственного управления, которая, во многом, будет определять финансовую политику государств, станет вопрос о той доле эмиссии, которая будет попадать в финансовый сектор. Отметим, что соответствующий процесс идет уже три года и пока финансовый сектор постепенно уступает: осенью 2008 года эмиссия практически полностью шла в финансовый сектор, QE2 уже, во многом, шла в бюджет, сейчас практически все эмиссионный деньги (которых, правда, не очень много) идут в бюджет.

В том случае, если (а в соответствии с настоящим прогнозом, когда) начнется эмиссия крупная (то есть, сравнимая с 1% ВВП в месяц, как в 2008-09 годах), финансовый сектор просто обязан поставить вопрос о своей доле – в противном случае, вся тяжесть дефляционных последствий, с массовыми банкротствами, ляжет на него. Да, конечно, кто-то, кто имеет непосредственный доступ к эмиссионному станку, может попытаться выкрутиться, однако, скорее всего, фокусы 2008 года уже не пройдут, даже очень большие банки будут банкротить, власти уже об этом неоднократно говорили. По этой причине борьба за эмиссию будет идти в рамках принятия общегосударственных решений – и не очевидно, что финансовый сектор здесь победит.

А может быть, наоборот, уже приняты решения, кого и как спасать. Или, по крайней мере, идут соответствующие переговоры. В любом случае, президент США Обама резко снизил градус антибанковской риторики, что само по себе странно, поскольку в нынешней ситуации она могла бы серьезно прибавить ему голосов избирателей. Но, в любом случае, последствия для финансового сектора станут еще одним важным фактором, описывающим переход к стагфляционному сценарию. Если доля финансового сектора в части получения эмиссионных денег будет мала, то финансовые рынки, после быстрого взлета, начнут падать, причем, довольно значимо. Если наоборот, то они продолжат рост (хотя и не так быстро, как сразу после начала эмиссии). Не исключено также, что в случае достаточно быстрого спада власти (прежде всего, США) сменят «гнев на милость» и увеличат долю эмиссии, достающуюся финансовом сектору – чтобы не допустить обвала. Но это только в том случае, если социальные последствия снижения спроса будут не слишком велики.

Отметим, что здесь сделать какие-то прогнозы практически невозможно. Ни в США, ни в Евросоюзе не осталось в политической элите людей с опытом принятия решений в 70-е годы, когда именно стагфляционный сценарий определял характер их принятия, поэтому велика будет роль именно субъективного фактора, предугадать который практически невозможно. А вот для России, по которой у меня есть информация, возможно дать некоторые варианты развития событий – но это я сделаю, как обычно, в отдельном тексте, через несколько недель.

Отметим еще одно важное последствие перехода к стагфляционному сценарию, которое недооценивается многими экспертами, которые рассуждают о том, что накопившиеся долги могут «сгореть» в инфляционной спирали. Это большой наивность, во всяком случае, до тех пор, пока не будет создан механизм непосредственного доведения эмиссионных денег до потребителей. Но само по себе создание такого механизма означает переход государственного управление к методам и механизмам «военного коммунизма». А вот любые другие способы – через бюджет ли, или через финансовый сектор, предполагают рост тех или иных сегментов долга, поскольку нужно не только обеспечить средства для очередных выплат, но и компенсировать выпадающий спрос. Сокращение долга возможно только для корпораций, и то – путем банкротства, то есть далеко не самым безболезненным способом.

Еще одним важным следствием начавшейся эмиссии станет принципиальное изменение структуры спроса. Более сложные и дорогие изделия с высокой долей добавленной стоимости, будут постепенно уступать свое место на рынке изделиям более дешевым, соответствующим возможностям беднеющего населения. Разумеется, это будет процесс длительный, он займет годы, причем будет идти с разной скоростью в разных регионах и странах, но именно в текущем году он, скорее всего, станет достаточно явным, чтобы его имело смысл учитывать во всех маркетинговых исследованиях.

Отметим, что общее падение спроса и упомянутые выше структурные изменения вызовут резкое усиление торговых войн. Я уже писал об этом в прогнозе на год предыдущий, но, скажем, США специально создает новые государственные структуры, задачей которых является защита своих рынков и продвижение отечественных товаров на рынках внешних. Фактически, можно сказать, что 2012 год станет первым годом смерти ВТО (в этом смысле наше вступление в эту организацию выглядит комично), но при этом сами торговые войны будут происходить все жестче и жестче. Особо важное место займут войны между Евросоюзом и США, причем на стороне последних, скорее всего, будут выступать Британия и их сателлиты их Восточной Европы.

Связано это с тем, что именно проблемы доступа на рынки друг друга, скорее всего, станут той «кочкой», на которой сломается телега «Атлантического единства». При этом США и Британия будут отчаянно стараться сохранить эту модель взаимодействия, причем – за счет Германии, которой, с одной стороны, будут закрывать доступ на американские рынки, а, с другой, которую будут заставлять платить за всех в Евросоюзе (ну, как минимум, в зоне евро). Как с решением этой проблемы справятся немецкие элиты – большой вопрос, на который я не могу ответить по причине того, что он носит не столько объективно-экономический, сколько субъективно-политический характер.

Еще одно следствие начала эмиссии доллара – ускорение отказа от него в рамках межгосударственных торговых отношений. Уже в конце 2011 года соответствующие решения подписали Китай и Япония, этот процесс будет продолжаться и ускоряться в году начавшемся. При этом малые страны будет примыкать к большим и пользоваться их валютами, что ускорит процесс распада единой долларовой системы на «валютные зоны» (напомним, термин введен в нашей книге «Закат империи доллара и конец «Pax Americana» в 2003 году).

Однако здесь есть большая проблема – заменить долларовые активы на какие-то другие (и, в первую очередь, казначейские облигации США) достаточно сложно, такого объема необходимых активов просто нет. По этой причине будет усиливаться давление на Китай и Индию (и, возможно, другие страны, которые могут в рамках начавшегося кризиса упасть не так сильно, как вся остальная экономика) с тем, чтобы они выходили на мировые финансовые рынки с бумагами, номинированными в своей валюте. И, что, как мне кажется, самое главное, будет усиливаться роль золота как всеобщего эквивалента, как новой (точнее, старой) единой меры стоимости. По этой причине я жду роста стоимости этого металла, хотя биржевая его волатильность и будет расти.

Отдельно нужно остановиться на проблемах ряда регионов, в первую очередь, Ближнего Востока. Предсказывать вероятность войны в Иране я не буду, поскольку этот проект носит не экономический, а политический характер, но, скорее всего, его последствия будут совсем не теми, какими рассчитывают его организаторы. Понятно, что перекрытие Ормузского пролива вызовет краткосрочный резкий рост цен на нефть, понятно, что выиграть войну против США Иран, скорее всего, не сумеет. Однако состояние мировой финансовой системы сегодня таково, что резкого увеличения рисков во всей финансовой сфере она, весьма возможно, не выдержит.

Собственно, не секрет, что сегодня вся система страхования финансовых рисков держится только на взаимных договоренностях о признании старых договоров – притом, что все понимают, что исполнены в сколько-нибудь полном масштабе они быть не могут. Ну, точнее, могут, но только в случае массированной эмиссии, существенно большей, чем осенью 2008 года. Война в Иране как раз и может стать триггером, который спровоцирует такое развитие событий – после чего события станут абсолютно неуправляемыми. Я не представляю себе, чтобы кто-то взял бы на себя ответственность за такой риск – но в том случае, если это состоится, говорить о чисто экономическом анализе будет как минимум наивно.

Если же войны не будет, то нарастание напряженности в регионе все равно продолжится, поскольку последствия «арабской весны» будут давать о себе знать, а это значит, что к реальной (не биржевой) стоимости нефти будет добавляться все больший и больший кусок, связанный с повышением рисков. Однако без войны обвала в 2012 году, скорее всего, не будет.

Для стран – нефтеэкспортеров (а также прочего сырья), ситуация будет медленно ухудшаться, вплоть до начала массовой эмиссии в США. Затем, на 3-5 месяцев, ситуация у них сильно улучшится, а вот потом начнутся проблемы, поскольку почти все они критически зависимы от импорта тех или иных товаров, а цены на них начнут очень быстро расти. Это приведет не просто к падению жизненного уровня населения, а к очень быстрому падению, что неминуемо вызовет серьезные социально-политические проблемы (вспомним, что проблемы в Египте в прошлом году были сильно отягощены резким ростом цен на еду).

Для тех стран, которые экспортируют готовую продукцию, но импортируют сырье (Германия, Китай, другие страны Юго-Восточной Азии), но импортируют сырье, краткосрочный рост цен на нефть пройдет практически без последствий. Но и выигрыша от инфляционной волны они не получат, поскольку рост доходов с каждой продажи компенсируется падением общего объема самих продаж, а также усилением торговых войн.

Скорее всего, по мере проедания внутренних резервов, им тоже придется переходить к эмиссионному стимулированию внутреннего спроса. Отметим, что Китай, который этим занимается уже несколько лет, и у которого уже намечается спад финансового пузыря на рынке недвижимости, скорее всего, должен будет уже в этом году решать очень серьезные проблемы, связанные с резким обнищанием не так давно созданного «среднего» класса.

В Евросоюзе малые страны пойдут по пути Прибалтики (то есть их ждет социальная катастрофа), которая может, рано или поздно, перейти на венгерский путь усиления крайнего национализма и консервативных (в противовес общеевропейскому либерализму) идей. Пока Брюссель активно этим идеям сопротивляется, но, рано или поздно, они свое возьмут. Франция и Германия должны будут, по мере ухудшения ситуации, пойти по пути Китая и США (то есть начать стимулировать внутренний спрос), на первом этапе за счет бюджетных механизмов. Для Германии ситуация будет усугублена тем обстоятельством, что ее будут вынуждать принимать на себя все проблемы ЕС вообще и еврозоны в частности, однако, скорее всего, если не произойдет ничего экстраординарного, типа войны в Иране, соответствующие решения будут приниматься уже за пределами 2012 года.

Несколько стран (Индия, Бразилия, Турция, Индонезия, может быть, еще одна-две), теоретически, имеют возможность пройти этот год вообще без спада, поскольку обладают достаточно емким внутренним (и ближайшим внешним) рынком, за счет которого могут компенсировать все свои проблемы. Однако и в них стагнационные явления будут нарастать.

На этом, собственно, общий прогноз на 2012 год заканчивается, для России, как обычно, чуть позже будет написан отдельный прогноз.

http://worldcrisis.ru/crisis/939776

Вебинар с Е. Крюковым

2012-01-27T15:04:00.001+04:00

Вебинар с Е. Крюковым - архитектором новой платформы FireMonkey.

Все желающие иметь копию у себя - могут скачать запись у Всеволода в блоге, желающие посмотреть он-лайн - смотрим.

"Что делать?" (М. Хазин, О. Григорьев)

2012-01-19T15:15:00.003+04:00

Почему мы (М. Хазин)

2011-12-12T23:52:00.003+04:00

В выходные дни состоялись первые за два года лекции по «Неокономике», в процессе который слушатели задавали разные вопросы, в том числе – почему новую интерпретацию макроэкономики и, соответственно, теорию кризиса, придумали у нас, а не в США, Великобритании, Германии или еще где. Ответ на этот вопрос мы уже, в том или ином виде, давали, но имеет смысл к нему вернуться еще раз.

Итак, напомню, что соответствующая наука достаточно долгое время, с момента своего возникновения в конце XVIII века, называлась политэкономей. Связано это было с тем, что ее авторы на протяжение 100 лет отдавали себе отчет в том, что это наука общественная и принципиально связана с интересами больших групп людей. Которые тщательно следят, чтобы ее развитие не противоречило их интересам. В математике такую ситуацию представить себе трудно, в физике – она была, но носила специфический и позитивный для науки характер (колоссальные вложения в науку в период создания атомного оружия). А вот для политэкономии все оказалось сложнее.

Начались проблемы, естественно, с Маркса, который впервые выдвинул тезис о том, что капитализм принципиально ограничен во времени и обосновал механизм классовой борьбы. Само по себе такое научное открытие мало кого бы взволновало, за исключением экспертов, но создание коммунистических партий, а затем и появление СССР напугало капитализм страшно. И он начал борьбу за принципиальное изменение всех общественных наук с целью доказать (или фальсифицировать доказательство) свое право на вечное существование. И именно в рамках этой работы и появилось то, что сегодня называется «экономикс», а термин «политэкономия» был напрочь выгнан с порога академических заведений. Чтобы никто о нем и не вспоминал. Кстати, в нашей стране это произошло буквально за десятилетие – кто-нибудь знает хоть один университет или другой ВУЗ, в котором сегодня читают политэкономию?

В процессе этой работы, естественно, были созданы многочисленные экономические и социологические школы, борьбу некоторых из которых мы сегодня видим, например, монетаристов и кейнсианцев. Но все эти школы выстроены на базе единого языка, созданного за последние сто лет, в котором нет места марксистским и вообще политэкономическим конструкциям, в рамках которых в принципе возможно описание конечности во времени парадигмы научно-технического прогресса.

Отметим, что и концепция одной из главных экономических школ современности, монетаризма, создана, во многом, под конкретную задачу. В 70-е годы, когда единственным выходом из экономической катастрофы, стала эмиссия денег, было необходимо разработать концепцию, которая бы оправдывала приоритет одной из групп современной капиталистической элиты – финансовой. И именно под ее интересы эта концепция и развивалась. А после того, как была реализована экономическая политика «рейганомики», с ее кредитной накачкой частного спроса, монетаристские принципы начали завоевывать мир.

А вот дальше начались проблемы, которые мы сегодня наблюдаем воочию. При этом мы-то понимаем, что под ними лежит серьезнейшая объективная проблема: модель экономического развития, построенная на парадигме научно-технического прогресса, подошла к концу. Но беда состоит в том, что тот язык, на котором говорят западные экономисты, а также те, кто у них учился, в принципе не допускает описание конструкций, ограничивающих время существования этой модели! Он специально так разрабатывался, много десятилетий тому назад, для борьбы с марксизмом! И по этой причине на этом языке, хоть в монетаристской, хоть в кейнсианской его интерпретации, причины современного кризиса вообще описать невозможно!

Отметим, что эта проблема имела место и в марксизме. Напомню, что концепцию о том, что НТП – это, прежде всего, углубление разделения труда, а разделение труда требует расширение рынков сбыта, описывал еще Адам Смит в XVIII веке (соответствующие моменты даже Пушкин отмечал в «Евгении Онегине»). Но тогда эта тема еще не была актуальна. А вот в конце XIX – начале ХХ века, когда начался первый кризис падения эффективности капитала (который потом повторился в 30-е годы, 70-е, и который мы наблюдаем сегодня), из-за невозможности трех основных на тот момент технологических зон (Британской, Германской и Американской) более экстенсивно расширяться, эта тема всплыла снова.

Причем позиции А.Смита защищала Роза Люксембург, а ее противником выступал Ленин. Причиной такого противодействия было не столько то, что Ленин имел собственные взгляды на экономические процессы, он вообще не был экономистом, а, скорее, конъюнктурно-политические тонкости. Однако в результате, работы Розы Люксембург в СССР не продолжались и, как следствие, та теория, которая могла бы помочь ему довести до конца почти уже выигранную «холодную» войну в начале 70-х годов, была создана усилиями, прежде всего, Олега Григорьева, только в начале 2000-х. И главная суть этой теории состоит в том, что дальнейшее углубление разделения труда невозможно в условиях глобализированных рынков. Иными словами, мы вернули теорию на ее базовую линию, созданную еще Адамом Смитом, с которой она свернула в конце XIX – начале ХХ века по идеологическим и политическим причинам.

Но эти причины действуют до сих пор. В частности, язык «экономикс» как не допускал «конца» капитализма, так и не допускает. А потому – в его рамках повторить рассуждения нашей теории просто невозможно. Вот почему происходит довольно любопытное явление. Если еще лет пять назад, когда представители западных экономических школ слушали наши рассуждения, то говорили только одно: «Бред!». Сегодня ситуация изменилась: они признают, что конечное описание кризиса у нас, в общем, правильное, но совершенно не понимают, как мы до этого описания дошли – поскольку в промежуточных рассуждениях присутствуют моменты, которые на их языке описаны быть не могут.

Следствие из этого достаточно интересные. Прежде всего, нужно понимать, что западные научные школы описать этот кризис и выход из него не смогут никогда. Им для этого нужно разрушить свои собственные основания и выйти за пределы их границ. Как показывает исторический опыт – это десятилетия, не меньше. Как следствие - экономическая наука в ближайшие десятилетия будет развиваться за пределами западного мира.

Кроме того, Запад, если он хочет играть серьезную роль по итогам кризиса, должен описать свои проблемы объективно, грубо говоря, взглянуть на них со стороны. Но для этого нужны люди, которые рассматривают эти проблемы вне их собственной парадигмы. С точки зрения цивилизационной это означает, что Запад должен принципиально открыть свои границы, даже если для этого придется пожертвовать частью собственной идентичности. Это для него вопрос жизни или смерти, но пока он явно к этому не готов.

Отметим, что, например, просто пригласить нас, скажем, работать в Гарвард, не получится, поскольку ничего, кроме обструкции, мы со стороны научной общественности Запада не встретим. Это хорошо видно на примере отношения к нашим теориям таких организаций, как, скажем, Российская экономическая школа (РЭШ). Я, конечно, регулярно называю ее тоталитарной сектой, но нужно понимать, что, как клон западных институтов, она и обязана быть «святее Папы Римского». Попытка «привить» нас как исследователей в западных центрах приведет к аналогичным результатам, тут именно что нужно создавать параллельные научные школы, что возможно только за пределами Запада в широком смысле этого слова.

В заключение я хочу отметить, что наши исследования в части теории кризиса – это только часть необходимой работы, поскольку мало что-то там понять, нужно еще создать новый научный язык, на котором можно описать современный мир целиком. Мне кажется, что это и есть главная на сегодня задача в общественных науках.

http://worldcrisis.ru/crisis/924228

Актуальный разговор: М. Делягин, М. Хазин, М. Леонтьев

2011-11-15T19:30:00.000+04:00

Онлайн-конференция Михаила Хазина: кризис, ВТО, "нищета" регионов

2011-11-11T22:47:00.001+04:00

Праздник 7 ноября (М. Делягин)

2011-11-09T18:50:00.002+04:00

С Праздником!

2011-11-07T13:55:00.002+04:00

Я поздравляю всех, чьи прадеды, деды и отцы получили бесплатное отличное образование, возможность с уверенностью смотреть в завтрашний день и строить свою судьбу благодаря Советской власти. C 94 годовщиной Великой Октябрьской социалистической революции!

Если мы такие умные, почему мы такие бедные? (М. Хазин)

2011-11-03T13:03:00.001+04:00

О статье Кудрина (М. Делягин)

2011-10-21T14:02:00.000+04:00

Статья: http://svpressa.ru/economy/article/49045/

Использование в проекте VCL- и FireMonkey-форм одновременно

2011-10-20T00:09:00.001+04:00

Кроссплатформленная разработка: EXE + DLL

2011-10-20T00:08:00.000+04:00

Конвертируем проект: VCL->FireMonkey

2011-10-20T00:06:00.002+04:00

Идите в избирком и получите паспорт! (М. Делягин)

2011-10-07T15:33:00.000+04:00

Нелегитимность предстоящих нам в ближайшем будущем процедур назначения депутатов Госдумы, а затем – премьера Путина президентом России (разумеется, «при соблюдении высочайших демократических стандартов избирательных процедур»), как представляется, обусловлена, по меньшей мере, четырьмя причинами, каждой из которых было бы уже вполне достаточно.

Первая, и самая очевидная – гомерический масштаб фальсификаций, выявленный, насколько можно судить, в ходе многочисленных скандалов прошлых лет: от прямых показаний наблюдателей до результатов математического анализа голосов. Стоит вспомнить «казус Ингушетии», голоса которой были отданы «Единой России», хотя большинство избирателей затем написали заявления, что вовсе не ходили на выборы, и «казус Митрохина» (когда оказалось, что на участке, где голосовал он с женой, «Яблоку» не было отдано ни одного голоса вообще).

Вторая причина нелегитимности предстоящих выборов – вопиюще неравный, по мнению автора, доступ к агитационным возможностям: от «паровозов» в списках «Е..ной России» (!) до запугивания бизнесменов, финансирующих неугодных.

Третья – недопущение на выборы всех новых политических сил (вероятно, заподозренных в нелояльности к Администрации президента). Последней новой партией была «Родина» образца 2003 года (ставшая основой «Справедливой России» – «Правое дело» наследует даже не СПС, а еще гайдаровскому «Демвыбору»).

Российские политические партии мало меняются и несут свои «родимые пятна» на протяжении всей истории; поэтому допущенный на выборы политический спектр отражает реальность, дай Бог, начала 2000-х годов. Социально-политическая же структура общества меняется значительно быстрее, в результате чего огромная часть современных избирателей a prioriлишена даже возможности политического представительства: им просто не за кого голосовать.

Наконец, последнюю причину нелегитимности предстоящих выборов публично доказал в конце лета не кто-нибудь, а член Центризбиркома (от КПРФ), продемонстрировав, что голосование с использованием электронных урн позволяет точно установить, за кого голосовал тот или иной гражданин, что, строго говоря, представляется прямым нарушением тайны голосования, а с ней – и Конституции РФ.

Изложенное вполне очевидно основной части общества: понимание того, что так называемые «выборы» представляют собой не вполне пристойный спектакль, распространяется все более широко и захватывает даже прежде лояльные к власти социальные группы.

Сегодня мыслящую Россию объединяет один вопрос – что делать, чтобы продемонстрировать свое отношение к высочайшему безобразию?

Совет «наблюдай внимательно!» уже давно разоблачил себя как официальная пропаганда и напоминает издевательство, как и совет защищать свои политические права в суде.

Наиболее популярен ответ Навального «голосуй за меньшее зло»: за кого угодно, кроме «Партии жуликов и воров» (тм).

Другой рецепт стар, как мир: испорти бюллетень или забери его с собой.

Однако они слабы. Забрать выданный бюллетень с собой может и не получиться – строго говоря, это неправовое действие. Матерное ругательство, которое Вы напишете на бюллетене, не прочитает никто, кроме Вашей учительницы литературы, оказавшейся в избирательной комиссии. А проголосовав за кого бы ни было, Вы не поможете им (насколько можно судить, Ваш голос с легкостью перебросят «кому надо»), но лишь подтвердите своим приходом легитимность «выборов» и сделаете половину дела за фальсификаторов, обеспечив им явку.

Конечно, хороших ответов в таких ситуациях не бывает, но бывают более разумные.

Прежде всего, задача фальсификаторов выборов складывается из двух частей: обеспечение явки и «правильное» распределение голосов.

Хотя бы из простого человеческого злорадства не стоит делать за этих людей даже часть их работы: не стоит ходить на эти «голосуйки», прикидывающиеся выборами. Тем более что самим фактом прихода на них Вы – повторюсь – признаете их легитимность и свое согласие с ними.

Посмотрите официозные телеканалы: эти люди заботятся о Вас? Защищают Вас? И Вы – скорее всего – их на самом деле не выбирали даже в кошмарном сне.

Но «протест на диване» за пределами теплого круга персонажей «Нашей Раши», конечно, приемлем далеко не для всех.

Официальное исключение себя из списков избирателей, предложенное Лимоновым, не только слишком хлопотно и демонстративно: оно не проработано юридически. Законом оно предусмотрено, а вот инструкции для технического сотрудника избиркома, как это делать, нет. В результате Вы можете добиться своего (потратив массу сил и времени) в Москве, Питере и, может быть, Нижнем Новгороде, но в большинстве регионов России Вам этого сделать не удастся – просто технически. Кстати, даже в Москве попытка С. Удальцова вычеркнуть себя из списка «избирателей» довела его до суда, который отклонил его требование. И судью можно понять: как это – вычеркивать себя из списка, по сути дела, рабов? Какой же это раб, если он может самоисключиться?

Поэтому отбирать свой голос у фальсификаторов следует, используя технологически отработанные механизмы. Лучший из них – получение открепительного талона.

Обычно они, насколько можно судить, используются для фальсификаций, но любое оружие применимо против его создателя.

Если Вы придете в избирком и объясните, что во время выборов будете в командировке или в гостях у друзей, и попросите выдать Вам открепительный талон – Вам невозможно будет отказать. Это рутинная бюрократическая процедура, отработанная до мелочей.

Единственно, что не следует при получении открепительного талона выкрикивать политические лозунги, выказывать свое отношение к политическому строю и лично паханату: как минимум такое поведение создаст у выдающих открепительный талон ощущение, что Вы не будете голосовать, и, соответственно, Ваш голос можно будет использовать при голосовании.

Если же Вы будете выглядеть обычным добропорядочным и послушным пропаганде человеком, Ваш голос никем не будет присвоен.

И справка об этом – открепительный талон с гербовой печатью – останется у Вас как паспорт подлинного, честного и ответственного перед своим народом и своей страной гражданина России. (Возможно, потом какие-то институты гражданской активности будут даже давать преимущества обладателю такого талона – своего рода «ветерану демократии».)

Кстати, вечером в день голосования полезно будет зайти на избирательный участок минут за 30 до его закрытия и проверить, не поставлена ли против Вашей фамилии подпись, свидетельствующая о том, что вы проголосовали. Если она есть – это доказательство фальсификации, можно писать заявление, настаивать на возбуждении уголовного дела против председателя комиссии и ее членов и отмене выборов на данном участке. Ничего этого, конечно, не будет, но панику Вы устроите, особенно, если таких, как Вы, будет несколько.

Если же у Вас совсем много сил и времени – не поленитесь, снимите видеорегистратором двери в избирательный участок в течение всего времени голосования. Если запись покажет, что в двери вошло (и вышло) семьсот человек, а «Е..ная Россия» получит на этом участке тысячу голосов — это будет еще одно убедительное и потому полезное доказательство фальсификации выборов.

Если же Вы симпатизируете какому-нибудь политику (такое бывает), то чем голосовать за него, напишите ему теплое личное письмо: голос, скорее всего, будет украден (или приписан), а письмо дойдет. Политикам редко приходится получать от обычных людей искренние слова одобрения, их ремесло жесткое и холодное, и они нуждаются в таких словах — а голоса на «голосуйках» они, насколько можно судить, получают не от Вас.

http://delyagin.ru/articles/19603.html

О разделении труда (М. Хазин)

2011-10-07T15:08:00.000+04:00

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

Государство берет деньги из налогов, а частный сектор – продавая свои товары и услуги. И возникает естественный вопрос – кому и что могут продавать те компании, которые платят налоги и зарплаты. Понятно, что есть чисто местные услуги и производства, но они обычно не платят налогов. Если же речь идет о чем-то передовом, то компании необходимо обеспечивать большой рынок сбыта. Что невозможно если страна маленькая или в ней много бедных.

Классический пример: после начала русофобской кампании в Прибалтике вынужденно исчезла вся индустрия, поскольку под внешним давлением новые руководители этих стран отказались от продаж на российские рынки, а больше продавать было некуда – на западные рынки их, естественно, не пустили. Еще один пример – Китай. Там народу очень много, но он был очень бедным и современную продукцию покупать не мог, соответственно, ее продавали в США и другие страны. Отмечу разницу между Китаем и странами Прибалтики – первый смог выйти на западные рынки, вторые – нет. Причина понятна – разительная разница в геополитическом весе.

Отмечу, что аналогичная проблема стояла в начале 90-х перед Россией. Внутренние рынки СССР/мировой социалистической системы рухнули, система их поддержки (ценовая, в первую очередь) после 1988 года стала быстро разрушаться, но политический вес у России еще был и можно было попытаться вылезти на мировые (читай – западные) рынки. Но у находящейся у власти в тот момент «команды» не было не то, что умения, они даже сформулировать проблему внятно не смогли. Впрочем, не исключено, что и не хотели. Результат мы сегодня наблюдаем воочию.

Но суть проблемы состоит в том, что тогда, в конце 80-х разрушалась только одна из двух имеющихся тогда в мире систем разделения труда. И у России по крайней мере был теоретический шанс воспользоваться ситуацией и влезть на мировые рынки. А вот что делать сегодня? Напомним, что уровень спроса в России упал процентов на 35-40, что стало социальной катастрофой. А вот сегодня, за счет разрушения стимулирования спроса в мировой экономике (которая представляет из себя единую глобальную систему разделения труда), падение спроса в США и Европе составит как минимум 50% - как выходить из такой ситуации?

Очень образно картину можно себе представить так. В России в 91 году пришел к власти Гайдар «со стоварищи», со всем их комплексом бредовых либеральных идей, а затем он еще и стал президентом. И продолжает «рулить» страной все эти годы. Вот такая перспектива сегодня у стран Запада: альтернатив либеральным теоретикам нет, они же и в политике, максимум на что они способны с точки зрения новых идей – это начать массовую эмиссию.

И некуда даже попытаться сунуться со своими товарами, альтернативы просто нет.
Более того, если кто-то попытается ее сделать, его свои же тут же пристукнут, поскольку любое сокращение рынков – это усиление кризиса. Ибо уменьшает уровень разделения труда. Тут, кстати, возникает еще одна проблема – снижение спроса ведет к уменьшению емкости рынков, а это значит, что высокотехнологическое, сложное производство, становится нерентабельным. Это может быть и не очень пока заметно на фоне современных финансовых технологий, которые позволяют много чего скрывать, но рано или поздно это все вылезет на поверхность, со всеми вытекающими последствиями. И что тогда?

При этом есть технологии и производства, которые государства будут поддерживать до последнего. Например, потому, что они имеют отношение к оборонному потенциалу страны. Но это только еще сильнее ударит по общему спросу, поскольку сократит возможности бюджета по социальной поддержке, то есть по компенсации спроса. Как тут быть, что и как делать – науке пока неизвестно.

Теоретически, мы (компания «Неокон») пытаемся заниматься этими вопросами. Но наши возможности ограничены, а внешнего запроса на эти вопросы пока практически нет. Так что все подобные исследования – как говориться, в свободное от работы время. Но нам представляется странным, что практически никто больше таких исследований не ведет – время, что называется, поджимает. Впрочем, я уже говорил, что системный кризис практически всегда оказывается и мировоззренческим.

Причем нет не только теоретических групп, которые бы занимались этой темой, как и на чем может быть основан спрос по итогам кризиса, как могла бы быть поострена система мирового разделения труда, но и практически нет людей, которые могли бы их составлять. А вопросы построения посткризисного мира пытаются решать, скорее, геополитики, на основе старых представления об от ношениях стран и регионов. Я ничего не хочу про них сказать плохого – но только как можно рассуждать о геополитике, не представляя контуров новой системы разделения труда?

Простейший пример: можно много говорить о «дружбе» Евросоюза и США, об «Атлантическом единстве» и так далее, но как только ты понимаешь, что производства по разные стороны Атлантики будут конкурировать за один и тот же спрос – понимаешь, что тут, скорее, речь пойдет о войне, а не о дружбе.

В общем, тема мирового (глобального или кластерного) разделения труда после кризиса только начинается и я надеюсь, что нам еще найдется что по ней сказать.

http://worldcrisis.ru/crisis/904305

RAD Studio XE2 Update 1

2011-09-28T10:27:00.001+04:00

Вышло первое обновление для RAD Studio XE2. Более 120 багфиксов, среди которых FireMonkey (дизайн- и рантайм), VCL-стили, фиксы IDE и компилятора и многое другое.

Ссылка: http://edn.embarcadero.com/article/41650.

Берлускони: Каддафи был любим своим народом

2011-09-10T13:21:00.003+04:00

http://messages.finance.yahoo.com/Stocks_%28A_to_Z%29/Stocks_C/threadview?m=tm&bn=2895&tid=1792756&mid=1792756&tof=18&off=1

Delphi XE2 & Mac - от настройки до запуска и отладки

2011-09-09T01:17:00.002+04:00

И плюс туториал на русском от Всеволода Леонова.

Сертификация Delphi

2011-08-31T16:44:00.000+04:00

Наконец я нашел время и прошел официальный сертификационный тест!

Полет прошел успешно (55 из 60), больше всего ошибок (2) удалось сделать в вопросах раздела Memory Management.

Если кого интересуют технические подробности подготовки и сдачи тестирования - отправляю на страничку блога Gunsmoker'а, где все подробным образом написано.

Удачи!

Российская экономика до и после выборов (М. Делягин)

2011-08-23T17:53:00.001+04:00

Текст: http://delyagin.ru/articles/18941.html

CnPack IDE-мастер - редактор ImageList

2011-08-23T17:43:00.000+04:00

В преддверии нового релиза CnPack IDE-мастера, расскажу о новой интересной функциональности.

При разработке "goog-looking" приложения, многие сталкиваются с задачей поиска изображений (иконок) для меню, панели инструментов и т.д. Обычно для этого приходится скитаться по специальным сайтам (например, http://www.iconfinder.com/) или собственным коллекциям, после чего сохранять, копировать и делать прочие операции с найденным, а затем загружать изображения в ImageList. Для облегчения этого процесса в CnPack IDE-мастере появился специальный редактор листа, позволяющий выполнять не только привычные функции, но и он-лайн поиск изображений. Вызвать его можно дважды щелкнув по ImageList на форме или выбрав ImageList Editor в контекстном меню компонента:

Внешний вид редактора приведен на рисунке ниже:

Интерфейс достаточно прост (уверен, что вы и без меня разберетесь), поэтому посмотрим на пример простого поиска и добавления иконок:

Новый редактор можно опробовать в RC2. И, конечно же, на русском ;)

Экономический кризис и Ливия

2011-08-23T15:17:00.003+04:00

http://worldcrisis.ru/crisis/889611

Используем дженерики в Delphi! - Часть 3 (Приложение)

2011-07-29T14:50:00.003+04:00

[Содержание]
[Часть 1 - Введение в дженерики] [Часть 2 - Системные классы] [Часть 3 - Приложение]

1. Заключение
В материале были кратко рассмотрены дженерики и их основные возможности в Delphi, стандартные классы языка и примеры работы с ними. Для дальнейшего изучения настоятельно рекомендуется пройтись по ссылкам и изучить материалы, указанные ниже. Во-первых, это позволит углубить уже полученные знания, а во-вторых, открыть для себя новые возможности, пропущенные в настоящем материале сознательно для облегчения "стартового" понимания.
Общий совет один - старайтесь максимально использовать дженерики, используя их преимущества. Удачи!

2. Исходники
В данном разделе приведены сслыки на исходные коды примеров, которые приводились в статье (с некоторыми изменениями). Вы можете скачать их и использовать по своему усмотрению.
Примечание: если у читателей будут интересные примеры использования дженериков, я буду рад их разместить в этом разделе, сохраняя ссылку на автора.

Класс(ы)	Описание	Ссылка
-	Реализация обобщенного класса	Скачать
-	Реализация обобщенного метода и записи	Скачать
TArray	Сортировка и поиск в одномерном целочисленном массиве	Скачать
TArray	Сортировка двумерного массива	Скачать
TDictionary<T> и TObjectDictionary<T>	Работа со словарем	Скачать
TList<T> и TObjectList<T>	Работа со списком	Скачать
TStack<T> и TObjectStack<T>	Работа со стеком	Скачать
TQueue<T> и TObjectQueue<T>	Работа со очередью	Скачать
Скачать все примеры целиком

3. Ссылки

Статья в PDF
- PDF-версия "Используем дженерики в Delphi!"
Дженерики
- Справочная система Delphi: обзор дженериков (англ.), Generics.Defaults (англ.), Generics.Collections (англ.)
- М. Кэнту Delphi Handbook 2009, раздел о дженериках (англ.)
- Обобщённое программирование (generics) в Delphi 2009 для Win32 (рус., англ.)
- Сравнивая дженерики в C#, C++ и Delphi(Win32) (рус., англ.)
Другое
- Преимущества перехода на Delphi XE (рус., англ.)

[Часть 1 - Введение в дженерики] [Часть 2 - Системные классы] [Часть 3 - Приложение] [Содержание]

Используем дженерики в Delphi! - Часть 2 (Системные классы)

2011-07-29T14:49:00.004+04:00

[Содержание]
[Часть 1 - Введение в дженерики] [Часть 2 - Системные классы] [Часть 3 - Приложение]

TComparer<T>

Generics.Collections

TArray

TDictionary<T> и TObjectDictionary<T>

TList<T> и TObjectList<T>

Заключение

1. Введение
Рассмотрим стандартные обощенные классы в Delphi и их функциональные особенности.
Большинство информации будет представлено в виде демо-примеров, которые при желании можно будет легко воспроизвести у себя на ПК.

2. Generics.Defaults
2.1. TComparer<T>
TComparer является базовым обобщенным классом, реализует интерфейс IComparer и предназначен для создания компараторов - классов, отвечающих за сравнение других классов или типов.
Создавать компараторы для некоторых стандартных типов (о которых можно получить информацию через RTTI) очень просто: для этого существует классовая функция TComparer.Default. Так, компаратор для целых чисел или строк создается через TComparer<Integer>.Default и TComparer<string>.Default соотвественно. А как же сранивать нестандартные типы или собственные классы? Для этого потребуется создать собственный компаратор на основе TComparer<T> и всего лишь переопределить функцию Compare:
Листинг 11 - Создание пользовательского компаратора для класса TCustomer

uses
  SysUtils, Generics.Defaults;
 
...

  // Создадим компаратор для класса TCustomer из Листинга 4

  // Немного расширим класс, пусть у клиента будет банковский счет
  TCustomer = class
  private
    FName: string;
    FMoney: Currency;
  private
    constructor Create(const Name: string; Money: Currency);
    property Name: string read FName write FName;
    property Money: Currency read FMoney write FMoney;
  end;

  // Объявляем наш компаратор и переопределяем функцию Compare
  TCustomerComparer = class(TComparer<TCustomer>)
    function Compare(const Left, Right: TCustomer): Integer; override;
  end;


function TCustomerComparer.Compare(const Left, Right: TCustomer): Integer;
begin
  // Переопределяемый метод Compare должен возвращать:
  // 0 - при равенстве значений
  // >0 если первый параметр больше второго (Left > Right)
  // <0 в остальных случаях (Left < Right)

  // Будем сортировать клиентов сначала по имени, а затем по сумме счета
  Result := CompareStr(Left.Name, Right.Name);
  if Result = 0 then
    Result := Left.Money - Right.Money;
end;

...

Кроме того, можно и не создавать класс, а использовать классовую функцию - TComparer<T>.Construct в том случае, когда компаратор передается как параметр метода. Сделать это необходимо через анонимную функцию того же вида, что и рассмотренная выше Compare:
Листинг 12 - "Конструирование" пользовательского компаратора с использованием функции Construct и анонимного метода

...

  // Предположим, что метод Sort в TCustomersManager принимает компаратор
  // в качестве параметра для сортировки имеющихся клиентов
  TCustomersManager.Sort(TComparer<TCustomer>.Construct(
    function (const Left, Right: Integer): Integer
    begin
      Result := CompareStr(Left.Name, Right.Name);
      if Result = 0 then
        Result := Left.Money - Right.Money;
    end));

...

Где и как использовать компараторы в различных вариациях, мы увидим уже в следующих разделах.

3. Generics.Collections
3.1. TArray
Создавать экземпляр этого класса не нужно. TArray содержит 2 статических метода:

Sort. Использует алгоритм быстрой сортировки, может принимать компаратор в качестве параметра
BinarySearch. Ищет элемент в массиве и возвращает True если находит. Также принимает компаратор, требует, чтобы массив был предвариательно отсортирован

3.1.1. Сортировка и поиск элементов в одномерном массиве
Рассмотрим возможности сортировки и поиска на примере простого одномерного массива.
Листинг 13 - Сортировка и поиск элементов одномерного целочисленного массива с использованием TArray

...

uses
  SysUtils, Types,
  Generics.Collections, Generics.Defaults;

function CompareIntReverse(const Left, Right: Integer): Integer;
begin
  // Сравниваем элементы "наоборот" и получаем обратный порядок
  Result := Right - Left;
end;

procedure PrintMatrix(A: TIntegerDynArray);
var
  item: Integer;
begin
  for item in A do
    Write(item, ' ');
  Writeln; Writeln;
end;

var
  A: TIntegerDynArray;
  FoundIndex: Integer;

begin

  ...

  SetLength(A, 5);
  A[0] := 1;
  A[1] := 6;
  A[2] := 3;
  A[3] := 2;
  A[4] := 9;

  // Распечатаем, что есть
  Writeln('Исходный массив:');
  PrintMatrix(A);

  // Сортируем по возрастанию без компаратора
  TArray.Sort<Integer>(A);
  Writeln('По возрастанию Sort без параметров:');
  PrintMatrix(A);

  // Сортируем по убыванию, конструируя компаратор
  // с помощью анонимного метода
  TArray.Sort<Integer>(A, TComparer<Integer>.Construct(
    function (const Left, Right: Integer): Integer
    begin
      Result := Right - Left;
    end));
  Writeln('По убыванию c TComparer<Integer>.Construct(анонимный метод):');
  PrintMatrix(A);

  // Опять сортируем по возрастанию c применением компаратора по умолчанию
  TArray.Sort<Integer>(A, TComparer<Integer>.Default);
  Writeln('По возрастанию c TComparer<Integer>.Default:');
  PrintMatrix(A);

  // И снова по убыванию с использованием собственного компаратора
  TArray.Sort<Integer>(A,  TComparer<Integer>.Construct(CompareIntReverse));
  Writeln('По убыванию TComparer<Integer>.Construct(CompareIntReverse):');
  PrintMatrix(A);

  // Выполняем поиск несуществующего элемента
  Writeln('BinarySearch несуществующего элемента');
  if TArray.BinarySearch<Integer>(A, 5, FoundIndex) then
    Writeln('5-ка найдена, ее индекс ', FoundIndex)
  else
    Writeln('5-ки в массиве нет!');
  Writeln;

  // Выполняем поиск существующего элемента
  Writeln('BinarySearch существующего элемента');
  if TArray.BinarySearch<Integer>(A, 6, FoundIndex) then
    Writeln('6-ка найдена, ее индекс ', FoundIndex)
  else
    Writeln('6-ки в массиве нет!');
  Writeln;

  // Выполняем поиск c нашим компаратором CompareIntReverse
  Writeln('BinarySearch существующего элемента с компаратором');
  if TArray.BinarySearch<Integer>(A, 6, FoundIndex,
    TComparer<Integer>.Construct(CompareIntReverse)) then
    Writeln('6-ка найдена, ее индекс ', FoundIndex)
  else
    Writeln('6-ки в массиве нет!');
  Writeln;

  FreeAndNil(A);


...

Результат работы приведен на Рисунке 3:

Рисунок 3 - Результаты поиска и сортировки с использованием TArray.Sort и TArray.BinarySearch
3.1.2. Сортировка двумерного массива
Посмотрим, как осуществить сортировку двумерного массива:
Листинг 14 - Сортировка элементов двумерного целочисленного массива с использованием TArray

...

uses
  SysUtils, Math, Types,
  Generics.Collections,
  Generics.Defaults;

type
  TDoubleIntegerArray = array of TIntegerDynArray;

procedure PrintMatrix(A: TDoubleIntegerArray);
var
  i, j: Integer;
begin
  for i := Low(A) to High(A) do
  begin
    for j := Low(A[0]) to High(A[0]) do
      Write(A[i, j]: 3, ' ');
    Writeln;
  end;
  Writeln; Writeln;
end;

var
  A: TDoubleIntegerArray;
  FoundIndex: Integer;
  i, j: Integer;

begin

...

  // Заполним целочисленный массив случайными числами [1..50]
  SetLength(A, 4, 7);
  Randomize;
  for i := Low(A) to High(A) do
    for j := Low(A[0]) to High(A[0]) do
      A[i, j] := Math.RandomRange(1, 50);

  // Приравниваем часть элементов для дальнейшей "каскадной" сортировки
  A[1, 0] := A[0, 0];
  A[2, 0] := A[0, 0];
  A[1, 1] := A[0, 1];
  
  // Распечатаем, что получилось
  Writeln('Исходный массив:');
  PrintMatrix(A);

  // Сортируем по убыванию по 1-й колонке, конструируя компаратор
  // с помощью анонимного метода
  TArray.Sort<TIntegerDynArray>(A, TComparer<TIntegerDynArray>.Construct(
    function (const Left, Right: TIntegerDynArray): Integer
    begin
      Result := Right[0] - Left[0];
    end));
  Writeln('По убыванию в 1 столбце:');
  PrintMatrix(A);

  // Сортируем по убыванию по 1-й колонке "каскадом"
  TArray.Sort<TIntegerDynArray>(A, TComparer<TIntegerDynArray>.Construct(
    function (const Left, Right: TIntegerDynArray): Integer
    var
      i: Integer;
    begin
      i := 0;
      repeat
        Result := Right[i] - Left[i];
        Inc(i);
      until ((Result <> 0) or (i = Length(Left)));
    end));
  Writeln('Каскадная сортировка, начиная с 1-го столбца:');
  PrintMatrix(A);

  ...

Результат работы приведен на Рисунке 4:

Рисунок 4 - Результаты сортировки двумерного массива с использованием TArray.Sort

3.2. TDictionary<T> и TObjectDictionary<T>
Данные классы представляют из себя коллекцию пар ключ-значение, или попросту словарь. Рассмотрим работу с этими классами на примере TDictionary<T>.
3.2.1. Работа со словарем (на примере TDictionary<T>)
Основные возможности и свойства TDictionary<T> рассмотрим на следующем примере:
Листинг 15 - Использование TDictionary<T> в качестве коллекции данных для телефонной книги

...

uses
  SysUtils, Generics.Collections, Generics.Defaults;

type

  // Информация о владельце номера
  TSubscriberInfo = record
    Name, SName: string;
    class function Create(const Name, SName: string): TSubscriberInfo; static;
    function ToString: string;
  end;

class function TSubscriberInfo.Create(const Name,
  SName: string): TSubscriberInfo;
begin
  Result.Name := Name;
  Result.SName := SName;
end;

function TSubscriberInfo.ToString: string;
begin
  Result := Format('%s %s', [Name, SName]);
end;

var
  // Объявляем "словарь"
  // ключом будет номер телефона, по которому можно будет
  // определить информацию о владельце в виде TSubscriberInfo
  TelephoneDirectory: TDictionary<string, TSubscriberInfo>;
  tempInfo: TSubscriberInfo;
begin

  ...

  // Создаем справочник
  // Конструктор имеет несколько перезагруженных вариантов, позволяющих
  // установить емкость контейнера, компаратор для значений или
  // первоначальный данные - мы используем самый простой вариант
  TelephoneDirectory := TDictionary<string, TSubscriberInfo>.Create;

  // ---------------------------------------------------
  // 1) Добавление в словарь

  // Добавляем абонентов в справочник
  TelephoneDirectory.Add('9101111111', TSubscriberInfo.Create('Арнольд', 'Шварценеггер'));
  TelephoneDirectory.Add('9102222222', TSubscriberInfo.Create('Джессика', 'Альба'));
  TelephoneDirectory.Add('9103333333', TSubscriberInfo.Create('Бред', 'Питт'));
  TelephoneDirectory.Add('9104444444', TSubscriberInfo.Create('Бред', 'Питт'));
  TelephoneDirectory.Add('9105555555', TSubscriberInfo.Create('Сандра', 'Баллок'));
  // Добавляем нового абонента и заменяем, если такой номер уже есть
  TelephoneDirectory.AddOrSetValue('9104444444',
                                   TSubscriberInfo.Create('Анджелина', 'Джоли'));

  // ---------------------------------------------------
  // 2) Получение, поиск, работа с элементами

  // Имеется ли номер телефона (ключ) - ContainsKey
  if TelephoneDirectory.ContainsKey('9105555555') then
    Writeln('Номер 9105555555 зарегистрирован!');
  // Имеется ли абонент (значение) - ContainsValue
  tempInfo := TSubscriberInfo.Create('Сандра', 'Баллок');
  if TelephoneDirectory.ContainsValue(tempInfo) then
    Writeln(Format('%s есть в справочнике!', [tempInfo.ToString]));
  // Пробуем получить информацию по телефону через TryGetValue
  if TelephoneDirectory.TryGetValue('9104444444', tempInfo) then
    Writeln(Format('Номер 9104444444 у абонента %s', [tempInfo.ToString]));
  // Обращение по номеру телефона
  Writeln(Format('Абонент с номером 9101111111: %s', [TelephoneDirectory['9101111111'].ToString]));
  // Кол-во людей в справочнике
  Writeln(Format('Всего абонентов в справочнике: %d', [TelephoneDirectory.Count]));

  // ---------------------------------------------------
  // 3) Удаление элементов

  // Шварценеггера сейчас не будет в списке =)
  TelephoneDirectory.Remove('9101111111');
  // Полностью очищаем список
  TelephoneDirectory.Clear;
  
  FreeAndNil(TelephoneDirectory);

  Readln;
end.

3.2.2. События OnKeyNotify и OnValueNotify
На случай, если Вы хотите отслеживать изменения в словаре, предусмотрены события OnKeyNotify и OnValueNotify, срабатывающие при добавлении/удалении ключа и значения соответственно. Добавим небольшой фрагмент кода к предыдущему Листингу и продемонстрируем их работу:
Листинг 16 - Использование событий TDictionary<T>

...

uses
  SysUtils, Generics.Collections, Generics.Defaults;

type

...

  // Класс, содержащий обработчики добавления/удаления элементов словаря
  TDictionaryEventsHandler = class
  public
    // Синтаксис процедур един, единственное, в обоих случаях для Item необходимо
    // указать тип согласно типам нашего ключа и значения
    class procedure OnKeyNotify(Sender: TObject; const Item: string;
      Action: TCollectionNotification);
    class procedure OnValueNotify(Sender: TObject; const Item: TSubscriberInfo;
      Action: TCollectionNotification);
  end;
  
class procedure TDictionaryEventsHandler.OnKeyNotify(Sender: TObject;
  const Item: string; Action: TCollectionNotification);
begin
  case Action of
    cnAdded:
      Writeln(Format('OnKeyNotify! Номер %s добавлен!', [Item]));
    cnRemoved:
      Writeln(Format('OnKeyNotify! Номер %s удален!', [Item]));
  end;
end;

class procedure TDictionaryEventsHandler.OnValueNotify(Sender: TObject;
  const Item: TSubscriberInfo; Action: TCollectionNotification);
begin
  case Action of
    cnAdded:
      Writeln(Format('OnValueNotify! Абонент %s добавлен!', [Item.ToString]));
    cnRemoved:
      Writeln(Format('OnValueNotify! Абонент %s удален!', [Item.ToString]));
  end;
end;

...

begin

  ...

  // ---------------------------------------------------
  // 4) События добавления/удаления значений

  // События OnKeyNotify и OnValueNotify предназначены для "слежения"
  // за добавлением/удалением ключей и значений соответственно
  // Эти обработчики мы реализовали выше в классе TDictionaryEventsHandler
  TelephoneDirectory.OnKeyNotify := TDictionaryEventsHandler.OnKeyNotify;
  TelephoneDirectory.OnValueNotify := TDictionaryEventsHandler.OnValueNotify;

  Writeln;
  // Пробуем, как откликаются события
  TelephoneDirectory.Add('9101111111', TSubscriberInfo.Create('Арнольд', 'Шварценеггер'));
  TelephoneDirectory.Add('9102222222', TSubscriberInfo.Create('Джессика', 'Альба'));
  TelephoneDirectory.Clear;
  
...
end.

Результат работы приведен на Рисунке 5:

Рисунок 5 - Обработка событий OnKeyNotify и OnValueNotify в TDictionary<T>

3.2.3. Ключи, значения и TArray
Получить досутп к элементам словаря можно сделать несколькими способами:
Листинг 17 - Доступ к элементам TDictionary<T>

...

uses
  SysUtils, Generics.Collections;

...

var
  TelephoneDirectory: TDictionary<string, TSubscriberInfo>;  
  // TPair - обощенная запись, предназначенная для хранения
  // пары ключ-значение и не обладающая какой-либо другой функциональностью,
  // поэтому я не освещая ее отдельно
  TTelephoneArray: TArray<TPair<string, TSubscriberInfo>>;
  TTelephoneArrayItem: TPair<string, TSubscriberInfo>;
  PhoneNumber: string;
  Subscriber: TSubscriberInfo;
begin
  ...

  TelephoneDirectory := TDictionary<string, TSubscriberInfo>.Create;

  TelephoneDirectory.Add('9101111111', TSubscriberInfo.Create('Моника', 'Белуччи'));
  TelephoneDirectory.Add('9102222222', TSubscriberInfo.Create('Сильвестр', 'Сталлоне'));
  TelephoneDirectory.Add('9103333333', TSubscriberInfo.Create('Брюс', 'Уиллис'));

  // Показываем ключи (телефоны)
  Writeln('Ключи (телефоны):');
  for PhoneNumber in TelephoneDirectory.Keys do
    Writeln(PhoneNumber);
  Writeln;

  // Показываем значения (абонентов)
  Writeln('Значения (абоненты):');
  for Subscriber in TelephoneDirectory.Values do
    Writeln(Subscriber.ToString);
  Writeln;

  // Теперь все вместе
  Writeln('Список абонентов с телефонами:');
  for PhoneNumber in TelephoneDirectory.Keys do
    Writeln(Format('%s: %s',
      [PhoneNumber, TelephoneDirectory[PhoneNumber].ToString]));
  Writeln;

  // Кроме того, мы можем "экспортировать" словарь в знакомый нам TArray
  // Отсортируем полученный массив и выведем на экран
  TTelephoneArray := TelephoneDirectory.ToArray;
  TArray.Sort<TPair<string, TSubscriberInfo>>(
    TTelephoneArray, TComparer<TPair<string, TSubscriberInfo>>.Construct(
      function (const Left, Right: TPair<string, TSubscriberInfo>): Integer
      begin
        // Сравним сначала полные имена, а затем телефоны при необходимости
        Result := CompareStr(Left.Value.ToString, Right.Value.ToString);
        if Result = 0 then
          Result := CompareStr(Left.Key, Right.Key);
      end));
  // Печатаем
  Writeln('Отсортированный через TArray список абонентов с телефонами:');
  for TTelephoneArrayItem in TTelephoneArray do
    Writeln(Format('%s: %s',
      [TTelephoneArrayItem.Value.ToString, TTelephoneArrayItem.Key]));

  FreeAndNil(TelephoneDirectory);

  Readln;
end.

Результат работы приведен на Рисунке 6:

Рисунок 6 - Доступ к ключам и значениям TDictionary<T> и экпорт в TArray
3.3. TList<T> и TObjectList<T>
TList<T> и TObjectList<T> - упорядоченные списки.
3.3.1. Работа со списком (на примере TObjectList<T>)
Стандартные возможности по работе с классом TObjectList<T> приведены в Листинге 18:
Листинг 18 - Использование TObjectList<T> в качестве футбольного "менеджера"

...

uses
  SysUtils, DateUtils,
  Generics.Collections, Generics.Defaults;

type
  TPlayer = class
  public
    Name, Team: string;
    BirthDay: TDateTime;
    NTeamGoals: Byte; // Кол-во голов за национальную сборную
    constructor Create(const Name: string; BirthDay: TDateTime;
      const Team: string; NTeamGoals: Byte = 0);
    function ToString: string;
  end;

constructor TPlayer.Create(const Name: string; BirthDay: TDateTime;
  const Team: string; NTeamGoals: Byte);
begin
  Self.Name := Name;
  Self.BirthDay := BirthDay;
  Self.Team := Team;
  Self.NTeamGoals := NTeamGoals;
end;

function TPlayer.ToString: string;
begin
  Result := Format('%s - Возраст: %d Сборная: %s Голов: %d',
                   [Name, DateUtils.YearsBetween(Date, BirthDay),
                    Team, NTeamGoals])
end;

var
  // Объявляем TObjectList для хранения TPlayer
  PlayersList: TObjectList<TPlayer>;
  Player: TPlayer;

begin
  ...
  
  PlayersList := TObjectList<TPlayer>.Create;

  // ---------------------------------------------------
  // 1) Добавление элементов

  // "Простое" добавление в конец списка
  PlayersList.Add(
    TPlayer.Create('Роналдо', EncodeDate(1976, 09, 22), 'Бразилия', 62));
  PlayersList.Add(
    TPlayer.Create('Зинедин Зидан', EncodeDate(1972, 06, 23), 'Франция', 31));
  Writeln(Format('Индекс добавляемого игрока: %d',
          [PlayersList.Add(TPlayer.Create('Юрген Клинсманн',
                                          EncodeDate(1964, 07, 30),
                                          'Германия', 47))]));
  // Добавляем в указанную позицию
  PlayersList.Insert(0,
    TPlayer.Create('Луиш Фигу', EncodeDate(1972, 11, 4), 'Португалия', 33));
  // Добавляем несколько футболистов через InsertRange (AddRange работает аналогично)
  PlayersList.InsertRange(0,
    [TPlayer.Create('Девид Бекхэм', EncodeDate(1975, 05, 2), 'Англия', 17),
     TPlayer.Create('Алессандро Дель Пьеро', EncodeDate(1974, 11, 9), 'Италия', 27),
     TPlayer.Create('Рауль', EncodeDate(1977, 06, 27), 'Испания', 44)]);
  // Добавляем заранее созданный экземпляр класса
  Player := TPlayer.Create('Рауль', EncodeDate(1977, 06, 27), 'Испания', 44);
  PlayersList.Add(Player);


  // ---------------------------------------------------
  // 2) Доступ и проверка наличия элементов

  // Имеется ли игрок в списке - Contains
  if PlayersList.Contains(Player) then
    Writeln('Рауль есть в списке!');
  // Индекс игрока и кол-во элементов в списке
  Writeln(Format('Рауль %d-й в списке из %d футболистов.',
                 [PlayersList.IndexOf(Player) + 1, PlayersList.Count]));
  // Доступ по индексу
  Writeln(Format('1-й в списке: %s', [PlayersList[0].ToString]));
  // "Переворачиваем" элементы
  PlayersList.Reverse;
  Writeln('Элементы списка были "перевернуты"');


  // ---------------------------------------------------
  // 3) Перемещение и удаление элементов

  // Меняем игроков в списке местами
  PlayersList.Exchange(0, 1);
  // Перемещаем 1 игрока обратно
  PlayersList.Move(1, 0);

  // Удаляем элемент по индексу
  PlayersList.Delete(5);
  // Или несколько элементов (2), начиная с индекса (5)
  PlayersList.DeleteRange(5, 2);
  // Remove удаляет элемент из списка, если элемент существует
  // вернется его индекс в списке, иначе -1
  Writeln(Format('Удален %d-й игрок', [PlayersList.Remove(Player) + 1]));

  // Extract возвращает элемент, удаляя его из списка
  // В нашем случае Player будет = nil, т.к. Рауля мы уже удалили через Remove
  Player := PlayersList.Extract(Player);
  if Assigned(Player) then
    Writeln(Format('Извлечен: %s', [Player.ToString]));

  // Очищаем список полностью
  PlayersList.Clear;

  FreeAndNil(PlayersList);

  Readln;
end.

3.3.2. Поиск и сортировка
Методы сортировки и поиска полностью идентичны соответствующим методам класса TArray:
Листинг 19 - Сортировка и поиск в TObjectList<T>

...

// Функция сортировки по убыванию голов за сборную
function ComparePlayersByGoalsDecs(const Player1, Player2: TPlayer): Integer;
begin
  Result := Player2.NTeamGoals - Player1.NTeamGoals;
end;

var
...
  FoundIndex: Integer;

begin

...

  PlayersList := TObjectList<TPlayer>.Create;

  PlayersList.Add(
    TPlayer.Create('Зинедин Зидан', EncodeDate(1972, 06, 23), 'Франция', 31));
  PlayersList.Add(
    TPlayer.Create('Роналдо', EncodeDate(1976, 09, 22), 'Бразилия', 62));
  PlayersList.Add(
    TPlayer.Create('Юрген Клинсманн',  EncodeDate(1964, 07, 30), 'Германия', 47));

  // Сортируем с использованием ComparePlayersByGoalsDecs
  PlayersList.Sort(TComparer<TPlayer>.Construct(ComparePlayersByGoalsDecs));
  Writeln('Список игроков:');
  for Player in PlayersList do
    Writeln(Player.ToString);
  Writeln;

  // Найдем Роналдо в списке
  // Как и в случае с TArray BinarySearch требует, чтобы список был отсортирован
  // Ньанс - по сути, выполняющий тоже самое, что и IndexOf
  // BinarySearch обычно быстрее (первый не требует сортировки списка)
  Player := PlayersList[0];
  if PlayersList.BinarySearch(Player, FoundIndex,
    TComparer<TPlayer>.Construct(ComparePlayersByGoalsDecs)) then
    Writeln(Format('Роналдо идет отсортированном списке под №%d', [FoundIndex + 1]));

...

Результат работы приведен на Рисунке 7:

Рисунок 7 - Сортировка и поиск в TObjectList<T>

Кроме того TObjectList<T> имеет функцию ToArray, которая работает так же, как и в TDictionary<T>, поэтому не будем приводить ее еще раз.
3.3.3. Событие OnNotify
Событие OnNotify возникает при изменении содержимого списка. Приведем пример ее использования:
Листинг 20 - Событие OnNotify в TObjectList<T>

// Класс, содержащий обработчики добавления/удаления элементов списка
  TListEventsHandler = class
  public
    class procedure OnListChanged(Sender: TObject; const Item: TPlayer;
      Action: TCollectionNotification);
  end;

class procedure TListEventsHandler.OnListChanged(Sender: TObject; const Item: TPlayer;
  Action: TCollectionNotification);
var
  Mes: string;
begin
  // В отличие от TDictionary у нас добавляется Action = cnExtracted
  case Action of
    cnAdded:
      Mes := 'добавлен в список!';
    cnRemoved:
      Mes := 'удален из списка!';
    cnExtracted:
      Mes := 'извлечен из списка!';
  end;
  Writeln(Format('Футболист %s %s ', [Item.ToString, Mes]));
end;

...

begin
  ...

  PlayersList := TObjectList<TPlayer>.Create;
  PlayersList.OnNotify := TListEventsHandler.OnListChanged;

  PlayersList.Add(
    TPlayer.Create('Зинедин Зидан', EncodeDate(1972, 06, 23), 'Франция', 31));
  PlayersList.Add(
    TPlayer.Create('Рауль', EncodeDate(1977, 06, 27), 'Испания', 44));
  PlayersList.Add(
    TPlayer.Create('Роналдо', EncodeDate(1976, 09, 22), 'Бразилия', 62));

  PlayersList.Delete(1);
  Player := PlayersList.Extract(PlayersList[0]);
  PlayersList.Clear;

  FreeAndNil(PlayersList);

...

Результат работы приведен на Рисунке 8:

Рисунок 8 - Событие OnNotify в TObjectList<T>
3.4. TStack<T> и TObjectStack<T>
Стек представляет из себя обобщенную коллекцию элементов типа "последним пришел — первым вышел" (LIFO). Рассмотрим работу с ним на следующем примере:
Листинг 21 - Работа с TStack<T>

...

uses
  SysUtils, Generics.Collections;

type
  // Будем печь блины, класть их на тарелку и брать последний =)

  TPancakeType = (ptMeat, ptCherry, ptCurds);

  TPancake = record
    strict private
      const
        PANCAKE_TYPE_NAMES: array [TPancakeType] of string =
          ('c мясом', 'с вишней', 'с творогом');
    public
      var
        PancakeType: TPancakeType;
    class function Create(PancakeType: TPancakeType): TPancake; static;
    function ToString: string;
  end;

class function TPancake.Create(PancakeType: TPancakeType): TPancake;
begin
  Result.PancakeType := PancakeType;
end;

function TPancake.ToString: string;
begin
  Result := Format('Блин %s', [PANCAKE_TYPE_NAMES[PancakeType]])
end;

var
  PancakesPlate: TStack<TPancake>;
  Pancake: TPancake;

begin

...

  // "Создаем" тарелку с блинами
  PancakesPlate := TStack<TPancake>.Create;

  // Испечем несколько блинов
  // Push - помещает элементы в стек
  PancakesPlate.Push(TPancake.Create(ptMeat));
  PancakesPlate.Push(TPancake.Create(ptCherry));
  PancakesPlate.Push(TPancake.Create(ptCherry));
  PancakesPlate.Push(TPancake.Create(ptCurds));
  PancakesPlate.Push(TPancake.Create(ptMeat));

  // Съедим несколько блинов
  // Pop - извлекает элемент из стека
  Pancake := PancakesPlate.Pop;
  Writeln(Format('Съели блин (Pop): %s', [Pancake.ToString]));
  // Extract - аналогична Pop, но вызывает в OnNotify
  // c Action = cnExtracted вместо cnRemoved
  Pancake := PancakesPlate.Extract;
  Writeln(Format('Съели блин (Extract): %s', [Pancake.ToString]));

  // Какой блин лежит последним?
  // Peek - возвращает последний элемент, но не извлекает его из стека
  Writeln(Format('Последний блин: %s', [PancakesPlate.Peek.ToString]));

  // Покажем оставшиеся блины
  Writeln;
  Writeln(Format('Всего блинов: %d', [PancakesPlate.Count]));
  for Pancake in PancakesPlate do
    Writeln(Pancake.ToString);

  // Доедаем все
  // Clear - очищает стек
  PancakesPlate.Clear;

  FreeAndNil(PancakesPlate);

...

Результат работы приведен на Рисунке 9:

Рисунок 9 - Работа с TStack<T>

Событие OnNotify и функция ToArray работают также, как и в TList<T>.
3.5. TQueue<T> и TObjectQueue<T>
Очередь представляет из себя обобщенную коллекцию элементов, которая обслуживается по принципу "первым поступил — первым обслужен" (FIFO). Рассмотрим работу с очередью на следующем примере:
Листинг 22 - Работа с TQueue<T>

...

uses
  SysUtils, Generics.Collections;

type
  // Будем обслуживать клиентов, стоящих за новой Delphi XE2 =)

  TDelphiVersion = (dvStarter, dvProfessional, dvEnterprise, dvArchitect);

  TCustomer = record
    strict private
      const
        DV_NAMES: array [TDelphiVersion] of string =
          ('Starter', 'Professional', 'Enterprise', 'Architect');
    public
      var
        DelphiVersion: TDelphiVersion;
    class function Create(DelphiVersion: TDelphiVersion): TCustomer; static;
    function ToString: string;
  end;

class function TCustomer.Create(DelphiVersion: TDelphiVersion): TCustomer;
begin
  Result.DelphiVersion := DelphiVersion;
end;

function TCustomer.ToString: string;
begin
  Result := Format('Delphi XE2 %s', [DV_NAMES[DelphiVersion]])
end;

var
  CustomerQueue: TQueue<TCustomer>;
  Customer: TCustomer;

begin

...

  // "Создаем" очередь в пункте продажи
  CustomerQueue := TQueue<TCustomer>.Create;

  // Добавим несколько человек в очередь
  // Enqueue - помещает элемент в очередь
  CustomerQueue.Enqueue(TCustomer.Create(dvStarter));
  CustomerQueue.Enqueue(TCustomer.Create(dvProfessional));
  CustomerQueue.Enqueue(TCustomer.Create(dvProfessional));
  CustomerQueue.Enqueue(TCustomer.Create(dvProfessional));
  CustomerQueue.Enqueue(TCustomer.Create(dvEnterprise));
  CustomerQueue.Enqueue(TCustomer.Create(dvEnterprise));
  CustomerQueue.Enqueue(TCustomer.Create(dvArchitect));
  CustomerQueue.Enqueue(TCustomer.Create(dvArchitect));

  // Обслужим часть покупателей
  // Dequeue - извлекает элемент из очереди
  Customer := CustomerQueue.Dequeue;
  Writeln(Format('Продали (Dequeue): %s', [Customer.ToString]));
  // Extract - аналогична Dequeue, но вызывает в OnNotify
  // c Action = cnExtracted вместо cnRemoved
  Customer := CustomerQueue.Extract;
  Writeln(Format('Продали (Extract): %s', [Customer.ToString]));

  // За чем пришел следующий покупатель?
  // Peek - возвращает первый элемент, но не извлекает его из очереди
  Writeln(Format('Обслуживаемый покупатель пришел за %s',
                 [CustomerQueue.Peek.ToString]));

  // Оставшиеся покупатели
  Writeln;
  Writeln(Format('Всего покупателей осталось: %d', [CustomerQueue.Count]));
  for Customer in CustomerQueue do
    Writeln(Customer.ToString);

  // Обслуживаем всех
  // Clear - очищает очередь
  CustomerQueue.Clear;

  FreeAndNil(CustomerQueue);

...

Результат работы приведен на Рисунке 10:

Рисунок 10 - Работа с TQueue<T>

Событие OnNotify и функция ToArray работают также, как и в TList<T>.

4. Заключение
Мы рассмотрели 2 основных модуля, предоставляющих классы для работы с дженериками, а также рассмотрели принципы и примеры работы с ними. Исходники проектов Вы сможете скачать в следующей Части.

[Часть 1 - Введение в дженерики] [Часть 2 - Системные классы] [Часть 3 - Приложение]
[Содержание]

Используем дженерики в Delphi! - Часть 1 (Введение)

2011-07-29T14:48:00.004+04:00

[Содержание]
[Часть 1 - Введение в дженерики] [Часть 2 - Системные классы] [Часть 3 - Приложение]

Заключение

1. Что такое дженерики и зачем они нужны?
Наличие обобщений в языке позволяет создавать открытые типы, которые превращаются в закрытые на этапе компиляции. Синтаксис дженериков на примере обобщенной записи TPoint<T> приведен в Листинге 1:
Листинг 1 - Объявление обобщенной записи TPoint<T>

type
  TPoint<T> = record
    X: T;
    Y: T;
  end;

Сразу бросаются в глаза отличия от декларирования обычной записи - наличие <T> в имени записи и кооринат X и Y этого же типа T. T здесь - неуточненный тип, который будет указан позже, при создании конкретного экземпляра записи.
Предположим, что мы решили использовать в приложении "дробные" точки (например, Double). Все, что нужно сделать - объявить следующий закрытый тип:
Листинг 2 - Использование обобщенной записи TPoint<T> в качестве "дробной" точки

...

var
  MyPoint: TPoint<Double>;
begin
  MyPoint.X := 1.5;
  MyPoint.Y := -0.5;

...

А если нам понадобится целый тип, мы просто изменим Double на Integer:
Листинг 3 - Использование обобщенной записи TPoint<T> в качестве "целой" точки

...

var
  MyPoint: TPoint<Integer>;
begin
  MyPoint.X := 1;
  MyPoint.Y := 100;

...

Просто, не правда ли? MyPoint: TPoint<Double> и MyPoint: TPoint<Integer> - уже являются закрытыми типами и подчиняются все правилам, справедливым для обычных, необобщенных типов.

Может возникнуть вопрос: могу ли я сделать это без дженериков? Конечно, можете. Правда, лишитесь ряда преимуществ.

2. Преимущества использования дженериков
2.1. Безопасность типов
Когда необходимо повысить безопасность типов и избежать ошибок их несоответствия во время выполнения приложения - дженерики могут прийти на помощь. Для демонстрации сравним стандартный класс TList и его обобщенный "аналог" TList<T>. Как известно, TList хранит массив указателей на объекты, причем тип этих объектов может быть различен. Рассмотрим следующий пример:
Листинг 4 - Вызов метода класса TCustomer для элементов TList

...

type
  // TCustomer - произвольный класс "Клиент"

  TCustomer = class
  private
    FName: string;
  private
    constructor Create(const Name: string);
    function ShowName: string;
  end;

...

procedure PrintCustomersInfo(List: TList);
var
  Item: Pointer;
  Customer: TCustomer;
begin
  for Item in List do
    ShowMessage((TObject(Item) as TCustomer).ShowName);
end;

procedure PrintCustomersInfo2(List: TList);
var
  Item: Pointer;
  Customer: TCustomer;
begin
  for Item in List do
    if TObject(Item) is TCustomer then
      ShowMessage((TObject(Item) as TCustomer).ShowName);
end;

Теперь представьте, что передаваемый TList содержит не только экземпляры TCustomer. Для PrintCustomersInfo это будет катострофично и приведет к Invalid Type Cast, в процедуре PrintCustomersInfo2 мы избежали этого путем дополнительных проверок.

Но разве не замечательно бы было отдать такие проверки на откуп компилятору при сборке приложения? Дженерики позволяют это сделать:
Листинг 5 - Вывод информации о клиентах через TList<T>

procedure PrintCustomersInfo3(List: TList<TCustomer>);
var
  Customer: TCustomer;
begin
  for Customer in List do
    ShowMessage(Customer.ShowName);
end;

Заметили, что код уменьшился и стал более читаемым? Кроме того, за тем, чтобы в TList не попало ничего лишнего уже проследил компилятор.
2.2. Эффективность
Дополнительная эффективность при использовании дженериков - возможно, одно из главных их преимуществ. Обобщения предоставляют компилятору больше информации, не исключая данные о типе во время исполнения приложения. Такой код проще писать, эффективнее заниматься отладкой приложения. Кроме того, в рассматриваемом примере ассемблерный код с дженериками (PrintCustomersInfo3) содержит до 10 инструкций меньше (по сравнению с PrintCustomersInfo2).
2.3. Максимальное повторное использование кода
Обобщенный класс, код для которого был написан всего 1 раз, может использоваться многократно. Так, без переписывания кода, TList<T> может быть использован для создания списка целых чисел (TList<Integer>), строк (TList<string>) и т.д.

В любом случае, эти преимущества достаточно существенны для того, чтобы пользоваться ими в полной мере.

3. Встроенные обощенные классы в Delphi
"Из коробки" в Delphi уже имеется ряд стандартных обобщенных классов, которые можно использовать при написании приложений. Находятся они в модулях Generics.Defaults и Generics.Collections. Основные классы и типы данных приведены в Таблицах 1 и 2.
Таблица 1 - Некоторые классы модуля Generics.Defaults

IComparer	Обобщенный интерфейс IComparer предназначен для сравнения двух значений одинакового типа
IEqualityComparer	Обобщенный интерфейс IEqualityComparer используется для проверки равенства двух значений
TComparer	Базовый обощенный класс для классов, реализующих интерфейс IComparer
TEqualityComparer	Базовый обощенный класс для классов, реализующих интерфейс IEqualityComparer
TCustomComparer	Базовый обощенный класс для классов, реализующих интерфейсы IComparer и IEqualityComparer

Таблица 2 - Некоторые классы и типы модуля Generics.Collections

Классы
TArray	Класс, содержащий статические методы для поиска и сортировки обобщенного массива
TDictionary, TObjectDictionary	Словарь (коллекция пар ключ-значение)
TList, TObjectList	Упорядоченный список
TStack, TObjectStack	Реализация стека (последний пришел, первый вышел)
TQueue, TObjectQueue	Реализация очереди (первый пришел, первый вышел)
Типы
TPair	Запись, хранящая пару ключ-значение

Примечание: как и аналоги из модуля Classes, обощенные "объектные" классы относительно "необъектных" (например, TObjectList<T> по сравнению с TList<T>) позволяют хранить объекты в качестве своих элементов, а также автоматически следить за их жизненным циклом

Использовать стандартные обобщенные классы довольно просто: включаем соответствующие модули в раздел uses и задействуем нужные нам классы. В Листинге 6 приведен пример работы со списком целых чисел на основе обобщенного класса TList<T>.
Листинг 6 - Пример использования TList<T> для создания списка целых чисел

...

uses
  Generics.Collections;

...

var
  IntegerList: TList<Integer>;
begin
  IntegerList := TList<Integer>.Create;
  try
    IntegerList.Add(1);
    IntegerList.Add(5);
    IntegerList.AddRange([2, 5, 8, 9]);
    IntegerList.Insert(0, 0);
    // Имеется ли 9 в списке = True
    ShowMessage(BoolToStr(IntegerList.Contains(9), True));
    IntegerList.Remove(9);
    // Теперь 9-ки уже нет = False
    ShowMessage(BoolToStr(IntegerList.Contains(9), True)); 
    // Индекс двойки в списке равен 2? True
    ShowMessage(BoolToStr(IntegerList.IndexOf(5) = 2, True)); 
  finally
    FreeAndNil(IntegerList);
  end;
end;

Более подробно системные классы будут рассмотрены во 2-м разделе.

4. Что "поддается обощению" в Delphi?
Естественно, что в Delphi имеется возможность не только использовать имеющуюся библиотеку дженериков, но и создавать свои собственные. Обобщенными могут быть классы, интерфейсы и записи. Также поддерживается создание обобщенных методов (процедур и функций).
4.1. Обобщенные методы
Самым простым примером обобщенного метода может служить процедура для обмена значений переменных:
Листинг 7 - Пример дженериковой процедуры Swap<T>

...

  TSwapper = class
    class procedure Swap<T>(var a, b: T);
  end;

class procedure TSwapper.Swap<T>(var a, b: T);
var
  temp: T;
begin
  temp := b;
  b := a;
  a := temp;
end;

...

Использовать такую процедуру можно следующим образом:
Листинг 8 - Использование дженериковой процедуры Swap<T>

...

  TPoint<T> = record
    X: T;
    Y: T;   
    // Добавим следующую маленькую функцию,
    // чтобы легче производить инициализацию записи
    class function Create(X, Y: T): TPoint<T>; static;
  end;

class function TPoint<T>.Create(X, Y: T): TPoint<T>;
begin
  Result.X := X;
  Result.Y := Y;
end;

var
  a, b: Integer;
  s1, s2: string;
  p1, p2: TPoint<Double>;
begin
  // Теперь с помощью обобщенной процедуры
  // мы имеем возможность обменять значения целых чисел...
  a := 1;
  b := 10;
  Writeln(Format('До обмена: a=%d; b=%d', [a, b]));
  TSwapper.Swap<Integer>(a, b);
  Writeln(Format('После обмена: a=%d; b=%d', [a, b]));

  Writeln;

  // ... строк...
  s1 := 'Delphi';
  s2 := 'XE';
  Writeln(Format('До обмена: s1=%s; s2=%s', [s1, s2]));
  TSwapper.Swap<string>(s1, s2);
  Writeln(Format('После обмена: s1=%s; s2=%s', [s1, s2]));

  Writeln;
  
  // ... и даже нашего типа TPoint<T>!
  p1 := TPoint<Double>.Create(5.5, -10);
  p2 := TPoint<Double>.Create(-1.5, 10);
  Writeln(Format('До обмена: p1: (%.2f, %.2f); p2: (%.2f, %.2f);', [p1.X, p1.Y, p2.X, p2.Y]));
  TSwapper.Swap<TPoint<Double>>(p1, p2);
  Writeln(Format('После обмена: p1: (%.2f, %.2f); p2: (%.2f, %.2f);', [p1.X, p1.Y, p2.X, p2.Y]));

...

Результат приведен на Рисунке 1:

Рисунок 1 - Пример использования Swap<T>

4.2. Обобщенные классы
Приведем пример обобщенного класса массива:
Листинг 9 - Пример обобщенного класса массива TGenericArray<T>

...

type
  // Обобщенный класс - одномерный массив
  TGenericArray<T> = class
  private
    // Обобщенные члены класса
    FItems: array of T;
    function GetItem(Index: Integer): T;
    function GetCount: Integer;
    procedure SetItem(Index: Integer; Value: T);
  public
    // Обобщенный конструктор
    constructor Create;
    // Обобщенные методы
    function IndexOf(Value: T): Integer;
    function SetSize(NewSize: Integer): Boolean;
    // Обобщенные свойства
    property Items[I: Integer]: T read GetItem write SetItem; default;
    property Count: Integer read GetCount;
  end;


{ TGenericArray<T> }

constructor TGenericArray<T>.Create;
begin
  SetSize(0);
end;

function TGenericArray<T>.GetCount: Integer;
begin
  Result := Length(FItems);
end;

function TGenericArray<T>.GetItem(Index: Integer): T;
begin
  if (Index < 0) or (Index >= Length(FItems)) then
    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);
  Result := FItems[Index];
end;

function TGenericArray<T>.IndexOf(Value: T): Integer;
begin
  // здесь может быть поиск элемента
end;

procedure TGenericArray<T>.SetItem(Index: Integer; Value: T);
begin
  if (Index < 0) or (Index >= Length(FItems)) then
    raise EArgumentOutOfRangeException.Create(SArgumentOutOfRange);
  FItems[Index] := Value;
end;

function TGenericArray<T>.SetSize(NewSize: Integer): Boolean;
begin
  Result := NewSize > 0;
  if Result then
    SetLength(FItems, NewSize);
end;

...

Посмотрим на вариант его использования:
Листинг 10 - Использование обобщенного класса массива TGenericArray<T>

...

var
  IntArray: TGenericArray<Integer>;
  DoubleArray: TGenericArray<Double>;
  i: Integer;

begin
  // Создаем "целочисленный вариант" нашего класса-массива
  IntArray := TGenericArray<Integer>.Create;
  IntArray.SetSize(3);
  IntArray[0] := 1;
  IntArray[1] := 2;
  IntArray[2] := 3;

  // а теперь "дробный"
  DoubleArray := TGenericArray<Double>.Create;
  DoubleArray.SetSize(4);
  DoubleArray[0] := 5;
  DoubleArray[1] := 2.5;
  DoubleArray[2] := -3;
  DoubleArray[3] := 3;

  Writeln(Format('В IntArray %d элем.:', [IntArray.Count]));
  for i := 0 to IntArray.Count - 1 do
    Writeln(Format('%d-й элемент = %d', [i, IntArray[i]]));

  Writeln;

  Writeln(Format('В DoubleArray %d элем.:', [DoubleArray.Count]));
  for i := 0 to DoubleArray.Count - 1 do
    Writeln(Format('%d-й элемент = %.1f', [i, DoubleArray[i]]));

  FreeAndNil(IntArray);
  FreeAndNil(DoubleArray);

...

Результат приведен на Рисунке 2.

Рисунок 2 - Пример использования TGenericArray<T>
4.3. Обобщенные записи
Пример обобщенной записи TPoint<T> уже был приведен в начале раздела. Гляньте на нее еще разок.

5. Заключение
Мы познакомились с синтаксисом дженериков, их преимуществами и возможностями в Delphi. В следующем разделе мы рассмотрим системные обобщенные классы из модулей Generics.Defaults и Generics.Collections.

[Часть 1 - Введение в дженерики] [Часть 2 - Системные классы] [Часть 3 - Приложение]
[Содержание]