Использование
функции
Если вы собираетесь использовать в программе свою функцию, то в простейшем случае ее объявление следует поместить в текст программы, перед подпрограммой, которая применяет эту функцию.
Рис. 6.1.
Окно программы Поездка на дачу
Следующая
программа (ее текст приведен в листинге 6.4, а вид диалогового окна на рис. 6.1)
вычисляет стоимость поездки на дачу. Исходными данными для программы являются:
расстояние, цена одного литра бензина и потребление бензина на 100 км пути. Для
ввода исходных данных применяются поля Edit1, Edit2 и Edit3. Функции обработки
события OnKeyPress
используют
функцию IsFioat для фильтрации вводимых в эти поля символов, во время работы
программы в полях ввода отображаются только допустимые символы.
Листинг
6.4. Пример использования функций программиста
unit fazenda_;
interface
Windows, Messages, SysUtils, Variants,
Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Edit1: TEdit; //
расстояние
Edit2: TEdit; // цена
литра бензина
Edit3: TEdit; //
потребление бензина на 100 км
CheckBox1: TCheckBox; //
True - поездка туда и обратно
Button1: TButton; //
кнопка Вычислить
Label4: TLabel; // поле
вывода результата расчета
Label1:
TLabel;
Label2:
TLabel;
Label3:
TLabel;
procedure EditlKeyPress(Sender: TObject;
var Key:
Char);
procedure Edit2KeyPress(Sender: TObject;
var Key:
Char);
procedure Edit3KeyPress(Sender: TObject;
var Key:
Char);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1:
TForm1;
implementation
{$R *.dfm}
// проверяет, является ли
символ допустимым
// во время ввода дробного
числа
function IsFloat(ch
: char; st: string) : Boolean;
begin
if (ch >= '0') and (ch
<= '9') // цифры
or (ch = #13) // клавиша
<Enter>
or (ch = #8) // клавиша
<Backspace>
then
begin
IsFloat := True; // символ верный
Exit; // выход из функции
end; case ch
of
'-': if Length(st) = 0 then IsFloat := True; ', ':
if (Pos(',',st) =
0)
and (st[Length(st)]
>= '0') and (st[Length(st)] <= '9')
then // разделитель можно ввести только после цифры
// и если он еще не введен
IsFloat := True/else //
остальные символы запрещены
IsFloat := False;
end;
end;
// нажатие клавиши в поле
Расстояние
procedure TForm1.EditlKeyPress(Sender: TObject;
var Key:
Char);
begin
if Key =
Char(VK_RETURN)
then Edit2.SetFocus // переместить курсор в поле Цена
else
If not
IsFloat(Key,Edit2.Text) then Key := Chr(O);
end;
// нажатие клавиши в поле
Цена
procedure TForml.Edit2KeyPress(Sender: TObject;
var Key:
Char);
begin
if Key =
Char(VK_RETURN)
then Edit3.SetFocus // переместить курсор в поле Потребление
else If not IsFloat(Key,Edit2.Text)
then Key := Chr
(0);
end;
// нажатие клавиши в поле
Потребление
procedure TForml.Edit3KeyPress(Sender: TObject;
var Key:
Char);
begin
if Key =
Char(VK_RETURN)
then Buttonl.SetFocus // // сделать активной кнопку Вычислить
else If not
IsFloat(Key,Edit2.Text) then Key := Chr (0);
end;
// щелчок на кнопке
Вычислить
procedure
TForm1.ButtonlClick(Sender: TObject);
var
rast : real; // расстояние
cena : real; // цена
potr : real; //
потребление на 100 км
summ : real; //
сумма
mes: string;
begin
rast :=
StrToFloat(Edit1.Text);
cena :=
StrToFloat(Edit2.Text);
potr :=
StrToFloat(Edit3.Text);
summ := rast / 100 * potr
* cena;
if
CheckBoxl.Checked then summ := summ * 2;
mes := 'Поездка на
дачу';
if CheckBoxl.Checked
then mes := mes + ' и обратно';
mes := mes + 'обойдется в '
+
FloatToStrF(summ,ffGeneral,4,2) + ' руб.';
Label4.Caption := mes;
end;
end.