11 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Как выбрать мебель из массива delphi

Содержание

Виды древесины для мебели

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

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

Срок службы мебели из массива – десятки и даже сотни лет. Кроме того, это выгодная долгосрочная инвестиция: уже спустя 50 лет деревянная мебель становится антиквариатом, и ее рыночная стоимость увеличивается в разы.

Типы и виды древесины для мебели, их свойства

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

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

Тип древесиныПоказатели плотности, кг/м3Виды древесины
Мягкаядо 540Кедр
Ель
Ольха
Сосна
Липа
Средняя/твердая550-740Ясень
Лиственница
Береза
Клен
Дуб
Орех
Бук
Вишня
Сверхтвердая750 и вышеАкация
Гевея
Граб
Красное дерево
Карельская береза
Тис

Какие породы дерева используют для изготовления мебели

Сосна

Сосна обладает теплым янтарно-молочным оттенком с блестящим финишем. Хорошо тонируется и не теряет при этом природной текстуры. Универсальна. Самая популярная древесина за счет доступности, хороших технических и эстетических характеристик.

Похожа но сосну, но уступает ей по некоторым эксплуатационным характеристикам. Чаще применяется для отделки и изготовления элементов, не испытывающих высоких нагрузок.

Лиственница

Хвойная лиственница обладает золотисто-медовой окраской – от светлых до бурых оттенков. Древесина эффектная и контрастная: в центре массив красноватого цвета, по краям – желтовато-молочного. На продольных срезах рисунок полосатый, на поперечных ярко выражены годичные слои и смоляные ходы.

Кедр относят к светлым породам дерева. Его древесина желтовато-охристого оттенка, иногда с розовым подтоном. Структура с выраженным и четким рисунком. На поверхности виды золотисто-янтарные черточки смоляных ходов.

Ольха

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

Красно-бурая древесина с поперечными светлыми прожилками и выразительной текстурой. При обработке позволяет добиваться эксклюзивных темно-лиловых оттенков с изумрудным отливом. Эффектно смотрится после профессионального состаривания.

Ценная древесина клена – молочная, желтовато-розоватая. Характерный рисунок напоминает пятнышки и ленточки. Поверхность с шелковистой рябью очень декоративна, но без специальной обработки желтеет под действием солнечных лучей.

Береза

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

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

Общая цветовая гамма – от молочной до бежево-розовой. Древесина этого сорта обладает богатой структурой с выраженными стволовыми слоями в форме сердца. Устойчива к механическим повреждениям: сделать скол или царапину на поверхности практически невозможно. Гнутый венский стул из бука, сделанный австрийцем Михаэлем Тонетом, стал абсолютным мебельным трендом.

Древесина благородных коричнево-серых оттенков с золотистым либо розовым подтоном. Волокна тонкие, поверхность переливается на свету. Слоистый срез отличается богатой текстурой. Древесину ореха используют для облицовки, изготовления резных ажурных и фигурных элементов. Наиболее известные в России ореховые гостиные гарнитуры мастера Гамбса упоминаются в романе Ильфа и Петерова «12 стульев» как признак достатка.

Ясень

Цвет древесины – насыщенный жемчужно-серый с молочным, желтым, розовым или лиловым подтоном. Красивая выраженная контрастная текстура. Поверхность волокнистая и шелковистая, с матовым блеском. Хорошо отражает солнечный свет, создает в доме позитивную и уютную атмосферу.

Вишня

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

Красное дерево

Красное дерево махагони обладает многообразием текстур. Оттенки – красно-коричневые, бордовые и малиновые, разной интенсивности. Древесина переливается на свету, создавая эффект пламени.

Так называемый белый бук – светлая серовато-белая древесина с текстурными косыми слоями. Эффектно смотрится на фоне более темных и ярких пород. Часто используется для изготовления отделочных элементов.

Акация

Древесина с зеленовато-желтым оттенком. Под действием света становится ярче, темнее и приобретает еще более выразительную текстуру. Используется для отделки и шпонирования.

Древесина липы – светлая, от беловатой до желтоватой. Может обладать красноватым либо коричневатым оттенком, зеленоватыми полосками и пятнами. Поверхность с матовым блеском. Используется для резных фасадов и отделки.

Карельская береза

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

Гевея

Экзотическая древесина каучукового дерева. Оттенок – светло-розовый с деликатным природным узором. Полируется до зеркального блеска, поэтому позволяет создавать эксклюзивные предметы интерьера.

Из каких пород дерева лучше выбрать ту или иную мебель

Что учитывать при выборе

  • Мебель из древесины клена отлично вписывается в скандинавский и стиль Прованс.
  • Мебель из дуба эффектно смотрится в разных интерьерных стилях, включая лофт.
  • При грамотной обработке вишня успешно имитирует махагони.
  • Хвойные породы создают здоровую экосистему в детских.
  • Бук отлично подходит аллергикам.
  • Из кедра делают элитную мебель для улиц – веранд, террас и патио, – а также эффектные резные элементы.
  • Лиственница под действием влаги становится еще тверже, поэтому подходит для длительно неотапливаемых загородных коттеджей. Из нее делают мебель для бассейнов, душевых, саун, лоджий и террас, а также кухонные гарнитуры, в том числе столешницы и элементы пространства возле раковин. Мебель из лиственницы отлично смотрится в альпийском стиле.
  • Ольха не впитывает посторонние запахи, поэтому подходит для меблировки кухонь. Ее влагостойкость сравнима с керамической плиткой. Древесина ольхи обладает противоаллергенными и антибактериальными свойствами, поэтому походит для детских и спален.
  • В сумерках мебель из сосны выглядит намного светлее других пород. Древесина выделяет фитонциды, которые создают благоприятный микроклимат в помещениях.
  • Махагони и другие экзотические виды древесины используют для отделки из-за их исключительной дороговизны.
  • Со временем любая натуральная древесина в большей или меньшей степени меняет свой цвет – темная светлеет, а светлая темнеет.

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

Дизайн-проект vs каталог. Легко ли найти в реальности мебель, нарисованную на рендере?

В последнее время все больше белорусов прибегают к услугам дизайнеров, чтобы те спроектировали им квартиру мечты. Правда, далеко не все могут позволить себе полное погружение специалиста в проект, чтобы тот пошагово сопровождал их в процессе ремонта. Многие справляются своими силами, пытаясь воплотить в жизнь красивую картинку. К сожалению, сделать все так, как задумано, получается не всегда: то дивана той самой формы нигде нет, то столика из нужного материала. Многое упирается в цену: ремонт и так вещь затратная, а если попытаться материализовать все идеи дизайнера, можно и вовсе разориться (или взять еще один кредит, а потом разориться). Мы попробовали реализовать рендеры студии дизайна Dia на практике с помощью Каталога Onlíner. А заодно поговорили с руководителем студии Дмитрием Воюнковым о том, как вообще выбирать мебель и на чем можно сэкономить.

Как выбрать диван

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

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

— У любой ткани есть такая характеристика, как износоустойчивость: сколько циклов стирки она может пережить, не потеряв при этом красивый внешний вид. Ориентируясь на этот параметр, можно предположить, сколько времени диван будет выглядеть как новый. Дешевый материал через 2—3 года эксплуатации станет потертым. А мебель раз в три года никто не меняет.

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

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

Теперь попробуем поискать в Каталоге диваны из нескольких дизайн-проектов. Постараемся представить разные ценовые категории, которые могут вписаться в выбранные интерьеры.

Достоинства и недостатки мебели из массива

Если мебель из натурального дерева – значит, она стоит дорого и служит десятки лет. Так думает едва ли не половина из нас. Правда ли это? Насколько натуральное дерево (массив) оправдывает потраченные на него деньги? Мы узнаем, какие недостатки и достоинства имеет мебель из массива – когда её покупка оправдана, а когда – стоит предпочесть покупку предметов обстановки из МДФ, ДСП и других древесно-стружечных материалов.

Мебель из массива – это плохо?

Конечно нет. Недостатки, о которых мы сейчас расскажем, имеют место быть только в случаях, когда сам массив не слишком качественный.

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

А вот в разбухании мебели виноват как раз микроклимат – и недостаточно хорошая обработка дерева лаками и пропитками.

Менее склонны к разбуханию/рассыханию предметы обстановки из плотной и тяжелой древесины. Та же мебель из дуба продержится даже в сухом или чрезмерно влажном микроклимате годы.

Массив неремонтопригоден. Уж если что-то с ним произошло, придется менять всю испорченную деталь. Исключение составляют только мелкие царапины и потертости: шлифовка частенько может вернуть древесине молодость.

Наконец – цена. Хорошая мебель для кабинета из массива стоит куда дороже, чем непритязательный комплект из стола, кресла и пары шкафов из ДСП или MDF. Но если вас интересует не только качество, но и престиж, практичность и возможность, раз купив мебель, не думать о её смене долгие годы – выбирайте дерево, то есть массив.

Достоинства массива

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

Хорошо подготовленный массив не боится ни влаги, ни сухости. Он прочен, довольно легок (если мы говорим не про драгоценные сорта дерева, вроде красного, сандалового или тикового, некоторых сортов дуба). Эти свойства автоматически переходят и на мебель из массива: прочная и надежная она служит долго, не рассыхается и не впитывает влагу из воздуха.

И ещё очень важное уточнение: производство эксклюзивной мебели из дерева частенько предусматривает отказ от использования металлического крепежа. Только клей и соединения типа «шип-паз». Почему? Крепежные элементы и детали должны иметь одинаковый коэффициент теплового расширения. Благодаря этому даже рассыхание и разбухание древесины не слишком сказывается на прочности мебели и сроке службы.

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

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

Добавлено: 26.05.2015 20:58:20

Еще статьи в рубрике Интересные решения по интерьерным решениям в статьях о мебели и дизайну интерьера:

  • Какая мебель уместна в гостиной

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

Покупка мебели в офис

Работа – это то место, где зачастую вы проводите очень много времени. Поэтому хочется возвращаться на работу с радостью. .

Имидж руководителя и его кабинет – взаимосвязь составляющих

Кабинет руководителя – визитная карточка его владельца. Оценка клиентами статуса и финансовой состоятельности компании происходит за столом переговоров в кабинете. Наборы .

    Интерьер: на что обратить внимание при выборе стиля

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

    Круглая кровать: стильное решение для спальни

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

    Дизайн интерьера — удел профессионалов!

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

    DelphiComponent.ru — бесплатно видеоуроки по Delphi, статьи, исходники

    • Главная
    • Компоненты Delphi
      • Работа с офисом
      • Базы Данных и MYSQL
      • Работаем с системой
      • Графика и дизайн
      • Работа с файлами
      • Сети и Web
      • Сборники
      • Мультимедиа
    • Обучение Delphi
      • Видеоуроки по Delphi
      • Уроки по Delphi
      • Программы для разработчика
      • Исходники Delphi
      • Софт от Кротова Романа
    • Учебники по Delphi
      • Внутренний мир Delphi
      • Базы данных в Delphi 7
      • Основы программирования в Delphi
      • Как стать программистом
      • Быстрый Старт в Delphi
      • Delphi XE

    Массивы в Delphi

    Массив— это структура данных, представляющая собой набор переменных одинакового типа, имеющих общее имя. Массивы удобно использовать для хранения однородной по своей природе информации, например, таблиц и списков.

    Хочешь 106 видеоуроков по Delphi в которых я разжевал подробнейшим образом все тонкости программирования на этом языке?

    Тогда тебе нужно кликнуть сюда:

    ЗАКАЗАТЬ

    Объявление массива

    Массив, как и любая переменная программы, перед использованием должен быть объявлен в разделе объявления переменных. В общем виде инструкция объявления массива выгладит следующим образом:

    • имя — имя массива;
    • array — зарезервированное слово языка Delphi, обозначающее, что объявляемое имя является именем массива;
    • нижний_индекс и верхний_индекс — целые константы, определяющие диапазон изменения индекса элементов массива и, неявно, количество элементов (размер) массива;
    • тип — тип элементов массива.

    Примеры объявления массивов:

    temper:array[ 1..31 ] of real ;

    koef: array [ 0..2 ] of integer ;
    name: array [ 1..30 ] of string [ 25 ];

    Специально по теме массивов, чтобы было Вам понятнее я подготовил отдельный видеоурок. Посмотрите его обязательно и сразу поймете как работать с массивами!

    При объявлении массива удобно использовать именованные константы. Именованная константа объявляется в разделе объявления констант, который обычно располагают перед разделом объявления переменных. Начинается раздел объявления констант словом const. В инструкции объявления именованной константы указывают имя константы и ее значение, которое отделяется от имени символом «равно». Например, чтобы объявить именованную константу нв, значение которой равно 10, в раздел const надо записать инструкцию: нв=ю. После объявления именованной константы ее можно использовать в программе как обычную числовую или символьную константу. Ниже в качестве примера приведено объявление массива названий команд-участниц чемпионата по футболу, в котором используются именованные константы.

    Для того чтобы в программе использовать элемент массива, надо указать имя массива и номер элемента (индекс), заключив индекс в квадратные скобки. В качестве индекса можно использовать константу или выражение целого типа, например:

    team[ 1 ] := ‘Зенит 1 ;

    d := koef[l]*koef[l]- 4 *koef[ 2 ]*koef[ 1 ];
    ShowMessage(name[n+ 1 ]);
    temper := StrToFloat(Editl . text);

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

    Имя: array [нижний_индекс. .верхний_индекс] of тип = (список) ;

    где список — разделенные запятыми значения элементов массива.

    a: array[lO] of integer = ( 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 );
    Team: array [ 1..5 ] of String[ 10 ]=( ‘Зенит’ , ‘Динамо’ , ‘Спартак’ , ‘Ротор’ , ‘СКА’ );

    Обратите внимание, что количество элементов списка инициализации должно соответствовать размерности массива. Если это будет не так, то компилятор выведет сообщения об ошибке: Number of elements differs from declaration (количество элементов не соответствует указанному в объявлении).

    При попытке инициализировать локальный массив компилятор выводит сообщение об ошибке: Cannot initialize local variables (локальная переменная не может быть инициализирована). Локальный массив можно инициализировать только во время работы программы, например, так:

    for i := 1 to 10 do a:= 0 ;

    Типичными операциями при работе с массивами являются:

    • вывод массива;
    • ввод массива;
    • поиск максимального или минимального элемента массива;
    • поиск заданного элемента массива;
    • сортировка массива.

    Вывод массива

    Под выводом массива понимается вывод на экран монитора (в диалоговое окно) значений элементов массива.

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

    В качестве примера на рис. 5.1 приведено диалоговое окно приложения, которое демонстрирует инициализацию и процесс вывода значений элементов массива в поле метки. Программа выводит пронумерованный список футбольных команд. Следует обратить внимание, что для того чтобы список команд выглядел действительно как список, свойству Label1.AutoSize нужно присвоить значение False (присвойте свойству Label1.Autosize значение True и посмотрите, как будет работать программа). Текст программы приведен в листинге.

    Листинг. Инициализация и вывод массива

    02. interface
    03. Windows, Messages, SysOtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
    04. type
    05. TForml = class (TForm)
    06. Buttonl: TButton;
    07. Label1: TLabel;
    08. procedure ButtonlClick(Sender: TObject);
    09. private
    10. < Private declarations >
    11. public
    12.
    13. end ;
    14. var
    15. Form1: TForm1;
    16. implementation
    17. <$R *,dfm>
    18. const
    19. NT = 5 ;
    20. var
    21. team: array [ 1.. NT] of string [ 10 ] =( ‘Зенит1,’ Динамо 1 , ‘Ротор1,’ Спартак ‘,’ СКА’) ;
    22. procedure TForml . ButtonlClick(Sender: TObject);
    23. var
    24. st: string ; // список команд
    25. i: integer ; // индекс, номер элемента массива
    26. begin
    27. // формирование списка для отображения в форме
    28. for i:=l to NT do st := st + IntToStr(i)+ ‘ ‘ + team +# 13 ;
    29. // вывод списка
    30. Label1 . Caption := st;
    31. end ;
    32. end .

    Ввод массива

    Под вводом массива понимается процесс получения от пользователя (или изфайла) во время работы программы значений элементов массива,»Лобовое» решение задачи ввода элементов массива — для каждого элемента массива создать поле ввода. Однако если требуется ввести достаточно большой массив, то такое решение неприемлемо. Представьте форму, например,с десятью полями редактирования! Очевидно, что последовательность чисел удобно вводить в строку таблицы,где каждое число находится в отдельной ячейке. Ниже рассматриваются два варианта организации ввода массива с использованием компонентов StringGrid И Memo.

    Использование компонента StringGrid

    Для ввода массива удобно использовать компонент StringGrid. Значок компонента StringGrid находится на вкладке Additional (рис. 5.2).

    Компонент strinqGrid представляет собой таблицу, ячейки которой содержат строки символов.

    В качестве примера использования компонента stringGrid для ввода массива рассмотрим программу, которая вычисляет среднее арифметическое значение элементов массива. Диалоговое окно программы приведено на рис. 5.3. Компонент stringGrid используется для ввода массива, компоненты Label1 и Label2 — для вывода пояснительного текста и результата расчета, Buttoni — для запуска процесса расчета.

    Добавляется компонент stringGrid в форму точно так же, как и другие компоненты. После добавления компонента к форме нужно выполнить его настройку в соответствии с табл. 5.2. Значения свойств Height и width следует при помощи мыши установить такими, чтобы размер компонента был равен размеру строки.

    Текст программы приведен в листинге.

    Значения свойств компонента StringGrid1

    СвойствоЗначение
    ColCount5
    FixedCols0
    RowCount1
    DefaultRowHeight24
    Height24
    DefaultColWidth64
    Width328
    Options.goEditingtrue
    Options.AlwaysShowEditingtrue
    Options.goTabstrue

    Листинг. Ввод и обработка массива целых чисел

    01. unit getar_;
    02. interface
    03. uses
    04. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
    05. Forms, Dialogs, Grids, StdCtrls;
    06. type
    07. TForml = class (TForm]
    08. Labell: TLabel;
    09. StringGridl; TStringGrid;
    10. Buttonl: TButton;
    11. Label2: TLabel;
    12. procedure ButtorilClicMSender: TObject];
    13. private
    14.
    15. public
    16. < Public declarations >
    17. end ;
    18. var
    19. Forml: TForml;
    20. implementation
    21.
    22. procedure TForml . ButtonlClick(Sender: TObject);
    23. var
    24. a : array [ 1..5 ] of integer ; // массив
    25. suntrn: integer ; // сумма элементов
    26. sr: real ; // среднее арифметическое
    27. i: integer / // индекс
    28. begin
    29. // ввод массива
    30. // считаем, что если ячейка пустая, то соответствующий
    31. // ей элемент массива равен нулю
    32. for i:= 1 to 5 do
    33. if Length(StringGridl . Cells[i-l, 0 ]] 0
    34. then a := StrToInt(StringGridl . Cells[i- 1 , 0 ))
    35. else a := 0 ;
    36. // обработка массива
    37. summ := 0 ;
    38. for i := 1 to 5 do
    39. summ := summ + a;
    40. sr : = summ / 5 ;
    41. // вывод результата
    42. Label2 . Caption := ‘Сумма элементов: ‘ + IntToStr(summl + # 13 + ‘Среднее арифметическое: ‘ + FloatToStr(sr);
    43. end ; end .

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

    Текст процедуры обработки события onkeypress приведен в листинге 5.3. Следует обратить внимание на свойство Col, которое во время работы программы содержит номер колонки таблицы, в которой находится курсор. Это свойство можно также использовать для перемещения курсора в нужную ячейку таблицы. Однако нужно учитывать, что колонки таблицы, впрочем, как и строки, нумеруются с нуля.

    Листинг 5.3. Процедура обработки события onkeypress

    procedure TForml . StringGridlKeyPress(Sender: TObject; var Key; Char);
    begin
    case Key of
    # 8 , ‘ 0 ‘ . . ‘9’ : ; // цифры и клавиша
    # 13 : // клавиша
    if StringGridl . Col . ColCount — 1
    then StringGridl . Col := StringGridl . Col + 1 ;
    else key := Chr(O); // остальные символы запрещены
    end ;
    end ;

    Листинг 5.4. Ввод и обработка массива дробных чисел

Ссылка на основную публикацию
Статьи c упоминанием слов:
Adblock
detector