2 сем_1 / 6 лаба / ПРОСТРАНСТОВООО / Unit1

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    lbl1: TLabel;
    lbledt1: TLabeledEdit;
    lbledt2: TLabeledEdit;
    procedure btn1Click(Sender: TObject);
    procedure lbledt1KeyPress(Sender: TObject; var Key: Char);
    procedure lbledt2KeyPress(Sender: TObject; var Key: Char);
    procedure lbledt1Change(Sender: TObject);
    procedure lbledt2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure Prov(Pole:string; var SIM:Char);
begin
case SIM of
'0'..'9':;
#8:;
',':if Pos(',',pole)<>0 then SIM:=#0;
'-':if Pos('-',pole)<>0 then SIM:=#0;
else Sim:=#0;
end;
end;

procedure TForm1.btn1Click(Sender: TObject);
var cod:Integer; x, y,z:Real;
a:Boolean;
begin
  x:=StrToFloat(lbledt1.text);
  y:=StrToFloat(lbledt2.text);
    a:=(y<=x+3)and(y<=-x+3)and(y>=0);
    if a then
  lbl1.Caption:='Точка принадлежит заданой области пространства'
  else lbl1.Caption:='Мимо!!!';
end;

procedure TForm1.lbledt1KeyPress(Sender: TObject; var Key: Char);
begin
    Prov(lbledt1.Text,Key);
end;


procedure TForm1.lbledt2KeyPress(Sender: TObject; var Key: Char);
begin
      Prov(lbledt2.Text,Key);
end;

procedure TForm1.lbledt1Change(Sender: TObject);
begin

if (lbledt1.text='-')
or ((Pos('-',lbledt1.text)<>0)and(Pos('-',lbledt1.text)<>1))
or ((Pos('-',lbledt2.text)<>0)and(Pos('-',lbledt2.text)<>1))
or (lbledt1.Text='') or (lbledt2.Text='')
then
  begin
   btn1.Enabled:=False;
    Exit;
  end
else
btn1.Enabled:=true;
end;

procedure TForm1.lbledt2Change(Sender: TObject);
begin
if (lbledt2.text='-')
or ((Pos('-',lbledt2.text)<>0)and(Pos('-',lbledt2.text)<>1))
or ((Pos('-',lbledt1.text)<>0)and(Pos('-',lbledt1.text)<>1))
or (lbledt1.Text='') or (lbledt2.Text='')
then
  begin
   btn1.Enabled:=False;
    Exit;
  end
  else
  btn1.Enabled:=true;
end;

end.