Курсовая работа: Програма контролю знань з дисципліни "Системне програмування та операційні системи"

var

Form2: TForm2;

x1,cod1,cod2:integer;

implementation

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

Val(Edit2.Text,x1,cod2);

Val(Edit1.Text,x1,cod1);

if (cod1<>0) or (cod2<>0) then

MessageDlg('Не кoректнi данi!', mtInformation, [mbOk], 0)

else Form2.Close;

end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Val(Edit2.Text,x1,cod2);

Val(Edit1.Text,x1,cod1);

if (cod1<>0) or (cod2<>0) then

MessageDlg('Не кoректнi данi!', mtInformation, [mbOk], 0);

end;

end.

_____________________________________________________________

unit Unit3;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls, jpeg;

type

TAboutBox = class(TForm)

Panel1: TPanel;