Модули

Пример включения модуля в проект

Откройте Lazarus с новым проектом. Как обычно, форму назовите fMain, в Caption пропишите Проверка чисел, сохраните проект в папку 17-01 под именем CheckNum, модулю главной формы, как обычно, дайте имя Main.

Теперь откройте ваш любимый файловый менеджер, с его помощью найдите наш модуль numbers.pas и скопируйте его в папку с проектом 17-01. Далее, в Редакторе кода найдите раздел uses в интерфейсной части, поставьте запятую после последнего указанного включаемого модуля, добавьте туда имя

numbers:
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, numbers;
    

Всё, наш модуль мы включили в проект, теперь можем реализовать проверку. Проект будет самый простой, с минимальным набором компонентов - только чтобы проверить работу нашего модуля. Установите на форму три компонента TLabel, их имена менять не нужно, а в Caption компонентов напишите соответственно, "Целое со знаком:", "Целое без знака:" и "Вещественное:". Правее меток установите три компонента TEdit, их имена также оставьте без изменений, в каждом TEdit очистите свойство Text. Ну и, наконец, в нижней части формы установите кнопку TBitBtn с вкладки Additional, в свойстве Kind которой выберите значение bkClose. Подравняйте компоненты так, чтобы у вас получилась примерно такая форма:

Рис. 17.1. Форма проверочного проекта

Теперь выделите Edit1, который предназначен для ввода целого числа со знаком. В Инспекторе объектов перейдите на вкладку События и сгенерируйте для компонента событие OnKeyPress. Его код:

procedure TfMain.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  //проверка правильности вводимого символа в целое число со знаком:
  Key:= TrueIntKeys(key, Edit1.Text, true);
end;
    

Для Edit2 код события OnKeyPress будет таким:

procedure TfMain.Edit2KeyPress(Sender: TObject; var Key: char);
begin
  //проверка правильности вводимого символа в целое число без знака:
  Key:= TrueIntKeys(key, Edit2.Text, false);
end;
    

И, наконец, для Edit3 код события OnKeyPress будет таким:

procedure TfMain.Edit3KeyPress(Sender: TObject; var Key: char);
begin
  //проверка правильности вводимого символа в вещественное число:
  Key:= TrueFloatKeys(key, Edit3.Text);
end;
    

Всё, сохраните проект, скомпилируйте и запустите его на выполнение. Теперь, как бы вы ни старались, ввести некорректные значения в строки ввода у вас не получится:

Рис. 17.2. Работающая программа

В дальнейшем, точно таким же образом вы сможете использовать модуль numbers.pas для проверки правильности ввода чисел в любых ваших последующих проектах.