Вывод в поле диалогового окна

Часть диалогового окна, предназначенная для вывода информации, называется полем вывода, или полем метки. Поле вывода — это компонент Label.

Содержимое поля вывода определяется значением свойства Caption. Изменить значение свойства Caption, как и большинства свойств других компонентов, можно как во время разработки формы приложения, так и во время работы программы.

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

На рис. 5 изображено диалоговое окно программы пересчета веса из фунтов в килограммы. Окно содержит два компонента Label. Компонент Label1 обеспечивает вывод информационного сообщения, компонент Label2 — вывод результата работы программы.

Рис. 5. Поле Label2 предназначено для вывода результата работы программы

Свойство Caption символьного типа. Поэтому для того, чтобы во время работы программы вывести в поле метки числовое значение, нужно преобразовать число в строку, например, При при помощи фуекции FloatToStr или IntToStr.

Ниже в качестве примера приведена инструкция из программы пересчета веса из фунтов в килограммы, которая используется для вывода результата расчета.

Label2.Caption:= FloatToStr(kg)+' кг';

Пример1. Вычисляет стоимость покупки. Демонстрирует использование компонентов Edit, Label, Button; использование процедуры обработки события OnKeyPress для фильтрации символов, вводимых в поле Edit

unit pokupka_1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Label3: TLabel;

procedure Button1Click(Sender: TObject);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

// подпрограмма

procedure Summa;

var

cena: real; // цена

kol: integer; // количество

s: real; // сумма

mes: string[255]; // сообщение

begin

cena := StrToFloat(Form1.Edit1.Text);

kol := StrToInt(Form1.Edit2.Text);

s := cena * kol;

if s > 500 then

begin

s := s * 0.9;

mes := 'Предоставляется скидка 10%' + #13;

end;

mes := mes+ 'Стоимость покупки: ' + FloatToStrF(s,ffFixed,4,2) +' руб.';

Form1.Label3.Caption := mes;

end;

Рис. Окно (форма) программы Стоимость покупки

Основы визуального программирования. Разработка простейших приложений с использованием компонентов страниц Standart, Additional

Цель: Сформировать умения разработки программ с использованием компонент страниц Standard, Additional.

Задания по работе с палитрой компонентов Standart.

1. Составить программу вычисления оптимального веса (опт. вес.=рост-100).

2. Составить программу вычисления значения функции sin(x) в любой точке.

3. Составить программу вычисления значения функции cos(x) в любой точке.

4. Составить программу вычисления значения функции tg(x) в любой точке.

5. Составить программу вычисления значения функции ctg(x) в любой точке.

6. Проверить, является ли введенное число простым.

7. Составить программу, которая пересчитывает вес из фунтов в килограммы (кг:=фунт*0.4095;).

8. Составить программу, которая пересчитывает вес из килограммов в фунты.

9. Составить программу, которая подсчитывает стоимость Вашего разговора по телефону.

10. Составить программу, которая позволяет считать стоимость валют по отношению к рублю на сегодняшний день.

11. Составить программу, которая вычисляет скорость бега спортсмена на заданной дистанции.

12. Составить программу, которая рассчитывает расход бензина от пройденного пути.