Вывод результатов. Вывод в окно сообщения. Разделение их на две строки ShowMessage('Hello '+#13+ #10+'World'); end;. procedure TForm1.Button1Click(Sender: TObject);. a,f,g:real;. a:= StrToFloat(InputBox('Ввод', 'Введите a',''));. f:= StrToFloat(InputBox('

Вывод результатов

Наиболее просто программа может вывести результат своей работы в окно сообщения.

Вывод в окно сообщения

Окна сообщений используются для привлечения внимания пользователя

Вывести на экран окно с сообщением можно при помощи процедуры ShowMessageили функции MessageDlg.

Процедура ShowMessage выводит на экран окно с текстом и командной кнопкой ОК.

В общем виде инструкция вызова процедуры ShowMessageвыглядит так:

ShowMessage(Сообщение);

где сообщение — текст, который будет выведен в окне.

begin
// Показ простого сообщения
ShowMessage('Hello World');

// Показ пустого сообщения
ShowMessage('');

// Разделение их на две строки ShowMessage('Hello '+#13+ #10+'World'); end;

procedure TForm1.Button1Click(Sender: TObject);

var

a,f,g:real;

begin

a:= StrToFloat(InputBox('Ввод', 'Введите a',''));

f:= StrToFloat(InputBox('Ввод', 'Введите f',''));

ShowMessage(floatToStr(a)+' '+floatToStr(f));

ShowMessage(floatToStr(a) + chr(13)+ chr(10) +floatToStr(f));

end;

end.

Вывод в текстовый редактор RichEdit

Используя свойство Text компонента RichEdit, можно выводить текстовую информацию во время выполнения программы.

Синтаксис:

RichEdit1.Text:=’’;

RichEdit1.Text:=RichEdit1.Text+ ‘ строка’;

RichEdit1.Text:=RichEdit1.Text+ floatToStr(a);

RichEdit1.Text:=RichEdit1.Text+ floatToStr(a)+chr(13) + floatToStr(f);

RichEdit1.Text:=RichEdit1.Text+ floatToStr(a)+’ ‘ + floatToStr(f);

Procedure TForm1.Button1Click(Sender: TObject);

var

a,f,g:real;

begin

RichEdit1.Text:= '';

a:= StrToFloat(InputBox('Ввод', 'Введите a',''));

f:= StrToFloat(InputBox('Ввод', 'Введите f',''));

ShowMessage(floatToStr(a)+' '+floatToStr(f));

ShowMessage(floatToStr(a) + chr(13)+ chr(10) +floatToStr(f));

RichEdit1.Text:=RichEdit1.Text+ floatToStr(a) +chr(13) + floatToStr(f)

end;

end.