Скачиваний:
31
Добавлен:
01.05.2014
Размер:
1.18 Кб
Скачать
unit Predobl;

interface

uses Tipe,
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls;

type
TFormPredObl = class(TForm)
Image1: TImage;
private
{ Private declarations }
public
{ Public declarations }
end;

var
FormPredObl: TFormPredObl;
const
eps=0.3; a0=1; b0=10;
procedure eval_proc(number:integer; par:domen;
var val:string40;var KD:integer); stdcall;// export;

implementation

{$R *.DFM}


procedure eval_proc(number:integer; par:domen;
var val:string40; var KD:integer); stdcall;
procedure initial(); {начальная установка}
begin
val := 'выведен';
MessageDlg('Поздравляю, вы начинаете работу с ' +
'экспертной системой по автогонкам в классе машин Формула-1', mtinformation, [mbOK], 0);
end;
procedure show();
begin
val := 'показать';
FormPredObl.Show;
end;
begin (*eval_proc*)
if not FlagPrObl then
begin
FormPredObl:= TFormPredObl.Create(Application);
FlagPrObl:=True;
end;
case number of
2: initial();
3: show();
end;
// FormPredObl.Free;
end(*eval_proc*);



end.
Соседние файлы в папке MyPrObl
  • #
    01.05.2014127.19 Кб31malaysia.bmp
  • #
    01.05.20144.38 Кб31PREDOBL.dcu
  • #
    01.05.201451 б32PREDOBL.ddp
  • #
    01.05.2014127.57 Кб31PREDOBL.dfm
  • #
    01.05.20141.18 Кб31PREDOBL.PAS
  • #
    01.05.201451 б31PREDOBL.~ddp
  • #
    01.05.2014127.57 Кб31PREDOBL.~dfm
  • #
    01.05.20141.1 Кб31PREDOBL.~PAS
  • #
    01.05.2014434 б32Probl.cfg
  • #
    01.05.20142.02 Кб31Probl.dof