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

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

Ввод данных в программу из компонента ComboBox

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

Поместите на форму компонент Panel и уберите его название (в его свойстве Caption не должно быть ни каких символов). Измените размеры панели так, чтобы на ней могли разместиться компоненты ComboBox, ListBox, соответствующие им метки (Label) и кнопка (Button). Поместите их на панель, предварительно изменив её цвет. Поместите на форму компонент Memo.

Выделите компонент ComboBox.

В инспекторе объектов отразятся все свойства этого компонента.

Найдите свойство Items и щелкните мышкой на многоточие, расположенное справа от надписи (Tstrings) (см.рис.5а). Появится окно String List Editor – редактор списка строк.

Введите шкалу междуфазных напряжений в столбик, нажимая ввод– Enter после каждого значения. После ввода, нажав кнопку O K, закройте редактор (см.рис.5.б).

Рис.5 а) компоненты Label и ComboBox, расположенные на компоненте Panel с фрагментом инспектора объектов, содержащим свойство Item компонента ComboBox; б) окно String List Editor – редактор списка строк с введенной шкалой номинальных напряжений.

В поле свойства Text компонента ComboBox введите какую-либо надпись, означающую, что напряжение ещё не выбрано: например «нет», «не выбрано», «выбери меня» и т.п.

Дважды щелкая по кнопке button 1, перейдите в редактор кода и введите в процедуру необходимый код. Пример, кода процедуры, приведен ниже.

procedure TForm1.Button1Click(Sender: TObject);

var Unom:real;

begin

Unom:=StrToFloat(ComboBox1.Items[ComboBox1.itemIndex]);

Memo1.Lines.Add(FloatToStr(Unom));

end;

Обратите внимание, что при выводе информации в поле Memo не использовался оператор присвоения значений (:=), а просто добавлялась (Add) одна стока (Lines) в поле Memo. При повторном нажатии кнопки Button1 в поле вывода появляется новая строка, а старая не стирается. Для того чтобы очистить поле Мемо следует перед выводом информации подать команду Memo1.Clear; { Очистить (Clear) поле Memo}. Если информация не помещается в размеры поля, то при помещении этого компонента на форму следует предусмотреть возможность как горизонтальной, так и вертикальной прокрутки области поля. Это осуществляется изменением параметров этого компонента (свойств, properties). Поместите компонент Memo на форму. Перейдите в окно инспектора объектов (Object Inspector) и найдите свойство прокрутки (ScrollBars). Измените значение этого свойства с ssNone (нет прокрутки) на ssHorisontal, ssVertical или ssBoth. В поле Memo появятся соответственно горизонтальная, вертикальная или обе линейки прокрутки. При исполнении программы их можно использовать для просмотра информации, которая не поместилась в размер поля.

Компонент ListBox.

Этот компонент может быть использован как для ввода, так и для вывода информации. Он во многом подобен компоненту ComboBox, но весь список его выводится на экран. Пример использования этого компонента для вывода информации:

ListBox1.Items[0]:='111';

В первой позиции появится строка ‘111’. Таким образом, можно последовательно добавлять строки в поле ListBox. Номера строк (свойство ItemIndex) начинаются с нуля. Если нужно изменить какую либо строку в компоненте её следует заново переопределить.

Для того чтобы взять какое-либо значение строковой переменной стоящей на первом месте из компонента в программу, например, с преобразованием строки в число с плавающей запятой, следует подать следующую команду: а:= StrToFloat (ListBox1.Items [0]). Для ввода целых чисел следует использовать другую функцию: n :=StrToInt (ListBox1.Items [0]).