Ввод данных из диалогового окна

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

имя_переменной:=InputBox(заголовок_окна, подсказка, значение_переменной);

где

· заголовок_окна – строка, определяющая название окна;

· подсказка – текст поясняющего сообщения;

· значение_переменной – строка, которая будет находиться в поле ввода при появлении окна на экране;

· имя_переменной — переменная строкового типа, которой будет присвоено значение_переменной из поля ввода;

Фрагмент программы

var S:string;

begin

S:=InputBox('ЗАГОЛОВОК ОКНА',

'Подсказка: введите исходные данные',

'Данное значение');

end;

У пользователя есть возможность изменять текст в поле ввода.

Щелчок по кнопке ОК приведет к тому, что в переменную, указанную слева от оператора присваивания будет занесена строка, находящаяся в поле ввода.

В данном случае в переменную S будет записана строка 'Данное значение'. Щелчок по кнопке Cancel закроет окно ввода.

Учитывая, что функция InputBox возвращает строковое значение, при вводе числовых данных применяют функции преобразования типов:

var

S:string; gradus,radian:real;

begin

S:=InputBox('Ввод данных','Введите величину угла в радианах','0,000');

gradus:=StrToFloat(S);

radian:=gradus*pi/180;

MessageDlg('Величина угла в градусах'

+FloatToStr(radian),MtInformation,[mbOk],0);

end;

РАБОТА С МАССИВАМИ

Массив – структурированный тип данных, состоящий из фиксированного числа элементов одного типа.

Массив, представляющий собой список данных одного и того же типа, называют простым или одномерным массивом.

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

Описание массивов

Первый способ: описание массива с помощью стандарнтых типов языка.

имя: array [индексы] of тип_данных;

где

· имя – любой допустимый в Delphi идентификатор;

· тип_данных – любой тип языка.

· индексы – перечисление диапазонов изменения номеров элементов массива; количество диапазонов совпадает с количеством измерений массива; диапазоны отделяются друг от друга запятой, а границы диапазона – двумя символами точка:

[ин1_н..ин1_к, ин2_н..ин2_к, …, ]

Например:

const

n=10;

var

A:array [1..10] of real;

c:array [0..5,1..7] of integer;

mass: array[1..n] of real;

Второй способ: создание нового типа данных и описание переменной этого типа.

Создание нового типа:

имя_типа=array [индексы] of тип_данных;

Здесь имя_типа – любой допустимый в Delphi идентификатор, имя нового типа данных, тип_данных – любой тип языка или уже созданный тип; список индексов – диапазоны изменения номеров элементов создаваемой структуры.

Например:

type

massiv=array[0..12] of real;

abc=array[-3..6] of integer;

var

x,y:massiv;

z: abc;

Не нашли, что искали? Воспользуйтесь поиском: