«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

{LTS}

 

¬вод и вывод данных

ѕрограмма может получить исходные данные из трех источников:
Ц окна ввода
Ц полей ввода диалогового окна
Ц файла.
 
¬вод из окна ввода
¬вод данных из окна ввода осуществл€етс€ вызовом стандартной функции InpUtBox, возвращаемым значением которой €вл€етс€ строка, введенна€ пользо­вателем. ¬ общем виде ввод данных с использованием функции InputBox выгл€­дит так
ѕеременна€:= InputBox(«аголовок, ѕодсказка, «начение);
 
ѕеременна€ Ц это идентификатор переменной строкового типа, значение которой должно быть получено из окна ввода.
«аголовок Ц текст заголовка ќкна ввода.
ѕодсказка Ц текст по€сн€ющего значени€
«начение Ц текст, наход€щийс€ в поле ввода в момент по€влени€ окна ввода на экране.
 
Ќапример, в программе вычислени€ площади поверхности шара ввод величи­ны радиуса шара может выгл€деть так:
S:= Input¬ох('¬ычисление площади поверхности шара', '¬ведите радиус шара, мм','');

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

¬вод из пол€ редактировани€
ƒл€ ввода из пол€ редактировани€ надо поместить на форму экземпл€р компо­нента Edit страницы Standart палитры компонентов.

¬вод данных из пол€ редактировани€ осуществл€етс€ обращением к свойству Text этого пол€, т.е. Edit1.Text

—ледует иметь в виду, что свойство “ехt представл€ет собой строку.

¬ывести результат программа может в окно сообщени€, в поле вывода диало­гового окна, в файл и на устройство печати (принтер).

¬ывод в окно сообщени€
¬ывод в окно сообщени€ может быть выполнен вызовом процедуры ShowMessage или функции MessageDlg.
 
ѕроцедура ShowMessage(const:String) Ц отображает окно сообщени€ с кнопкой ќ . «аголовок содержит им€ исполн€емого файла приложени€, а строка const выводитс€ как текст сообщени€. ¬ общем виде вызов процедуры ShowMessage выгл€дит так:
ShowMessage(—ообщение)

—ообщение Ц выражение строкового типа.

«аголовок окна сообщени€, выводимого процедурой ShowMessage, по умолча­нию совпадает с именем исполн€емого файла приложени€.

‘ункци€ MessageDlg(const:String, Type, Buttons, Help): Word Ц отображает окно сообщени€ в центре экрана и позвол€ет получить ответ пользовател€. ѕараметр const содержит текст сообщени€.

Type Ц это тип окна сообщени€. ћожет принимать следующие значени€: mtWarning (восклицательный знак в желтом треугольнике); mtError (белый крест в красном круге); mtInformation (буква Ђiї в белом круге); mtConfirmation (синий знак Ђ?ї в белом круге); mtCustom (не содержит картинки и в заголовке выводитьс€ название исполн€емого файла).
 
Button Ц это набор кнопок:
Ц mbYes Ц отображает кнопку Yes;
Ц mbNo Ц отображает кнопку No;
Ц mbOK Ц отображает кнопку OK;
Ц mbCancel Ц отображает кнопку Cancel;
Ц mbAbort Ц отображает кнопку Abort;
Ц mbRetry Ц отображает кнопку Retry;
Ц mbIgnore Ц отображает кнопку Ignore;
Ц mbAll Ц отображает кнопку All;
Ц mbNoToAll Ц отображает кнопку No to all;
Ц mbYesToAll Ц отображает кнопку Yes to all;
Ц mbHelp Ц отображает кнопку Help.

Ёти значени€ задаютс€ в квадратных скобках разделЄнных зап€той.

Delphi обеспечивает множество предопределенных комбинаций кнопок:
Ц mbYesNoCancel = [mbYes, mbNO, mbCancel];
Ц mbYesAllNoAllCancel = [mbYes, mbYesToAll, mbNo, mbNoToAll, mbCancel];
Ц mbOKCancel = [mbOK, mbCancel];
Ц mbAbortRetryCancel = [mbAbort, mbRetry, mbCancel];
Ц mbAbortIgnore = [mbAbort, mbIgnore].
 
¬место того, чтобы определить перечисл€емое значение нажатой кнопки, используетс€ полностью различный набор перечисл€емых имЄн:
Ц mrYes = 6
Ц mrNo = 7
Ц mrOK = 1
Ц mrCancel = 2
Ц mrAbort = 3
Ц mrRetry = 4
Ц mrIgnore = 5
Ц mrAll = 8
Ц mrNoToAll = 9
Ц mrYesToAll = 10
 
Help Ц это справка, котора€ по€вл€етс€ во врем€ отображени€ диалогового окна при нажатии пользователем клавиши F1. ќбычно значение равно 0.
 
ѕример:
rez:=MessageDlg('деление на ЌќЋ№!!!',mtError, mbOKCancel, 0);
if rez=mrOk then Edit3.Text:='число 0';
end;
 
ѕример:
Var
    buttonSelected : Integer;
begin
buttonSelected := MessageDlg('Custom dialog',mtCustom, [mbYes, mbAll, mbCancel], 0);
if buttonSelected = mrYes then ShowMessage('Ѕыла нажата Yes');
if buttonSelected = mrAll then ShowMessage('Ѕыла нажата All');
if buttonSelected = mrCancel then ShowMessage('Ѕыла нажата Cancel');
end;
 
‘ункци€ MessageDlg позвол€ет сопроводить сообщение одним из стандарт­ных значков Windows, например значком Ђ¬ниманиеї, задать количество и тип командных кнопок.
 
¬ывод в поле диалогового окна
„асть диалогового окна, предназначенна€ дл€ вывода информации, называетс€ полем вывода или полем метки. ƒл€ вывода в поле диалогового окна надо поместить на форму экземпл€р компонента Label страницы Standart ѕалитры компонентов.
¬ывод данных в поле метки осуществл€етс€ обращением к свойству Caption это­го пол€, т.е. Labell.Caption, которое €вл€етс€ переменной строкового типа.
 
Ќапример, чтобы в поле вывода по€вилс€ текст, достаточно написать:
Label1.Caption:- '«начение функции равно' + FloatToStr(y);

”знать как сэкономить в кризис моно на сайте ekonom-it.ru

—труктурное программирование ћодульное программирование ќбъектно-ориентированное программирование ѕринципы ќќѕ ƒостоинства и недостатки ќќѕ ƒиаграммы вариантов использовани€ ƒиаграммы классов ƒиаграммы взаимодействи€ ƒиаграммы состо€ний ƒиаграммы размещени€ 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом