Бағдарламалау технологиялары және тілдер

procedure TForm1.Button1Click(Sender: TObject)

жүктеу 1,75 Mb.

бет	64/84
Дата	06.01.2022
өлшемі	1,75 Mb.
	#36866

1 ... 60 61 62 63 64 65 66 67 ... 84

интеграция

procedure TForm1.Button1Click(Sender: TObject);

begin

edit2.Text:=FloatToStr(StrToFloat(edit1.Text)/1024);

edit3.Text:=FloatToStr(StrToFloat(edit2.Text)/1024);

edit4.Text:=FloatToStr(StrToFloat(edit3.Text)/1024);

end;

Delphi- де деректерді енгізу мен шығаруды компонент көмегімен емес, енгізу және шығару терезесі арқылы жүзеге асыруға болады.

1. Деректерді енгізу

Деректерді енгізуді енгізу терезесі арқылы жүзеге асыруға болады.

Енгізу терезесі- ол InputBox() функциясының нәтижесінде шақырылатын стандарт сұқбат терезесі болып табылады. Бұл функцияның мәні қолданушы енгізген жол болып табылады.

Функцияның жалпы түрі:

айнымалы:=InputBox(‘тақырып’,’түсініктеме’,’мән’);

Мұндағы:

айнымалы- қолданушы енгізген String типті айнымалы мәні

тақырып- енгізу терезесінің тақырып мәтіні

түсініктеме- түсіндіру хабарламасының мәтіні

мән- енгізу терезесі экранға шыққанда енгізу өрісіне шығатын символ

2. Нәтижені шығару

Нәтижені шығару үшін ShowMessage() процедурасы және MessageDlg() функциясы қолданылады.

ShowMessage процедурасы экранға мәтін және ОК командалық батырмасы бар шағын терезе шығарады.

Процедураның жазылуының жалпы түрі:

ShowMessage(‘Хабарлама’);

Мысалы: ShowMessage(‘Берілген шаманы енгіз’);

Бұл терезенің тақырыбы қалыпты жағдайда Project болады. Оны өзгерту үшін меню қатарынан Project\Options\Application|Title командасы орындалады.

Нәтижені шығарудың неғұрлым күрделі функциясы болып MessageDlg() функциясы саналады. Ол арқылы хабарламамен қатар стандарт белгіше шығаруға болады.

Функцияның жазылуының жалпы түрі:

нәтиже:= MessageDlg(‘хабарлама’,’тип’,батырма, анықтама контексі);

Мұндағы:

тип- хабарлама типі. Хабарлама ақпаратты, ескертпелі, немесе критикалық қате туралы болуы мүмкін. Оның әр түріне белгілі бір белгіше және тұрақты сәйкес келеді. MessageDlg() функциясының хабарлама типінің қабылдайтын мәндері төмендегі кестеде көрсетілген.

Кесте 16. MessageDlg() функциясының хабарлама типі

жүктеу 1,75 Mb.

Достарыңызбен бөлісу:

1 ... 60 61 62 63 64 65 66 67 ... 84