Ãëàâíàÿ/

Ïðîãðàììèðîâàíèå, áàçû äàííûõ. /

Ýêñïåðòíàÿ ñèñòåìà

{$F+,O+,S-}

unit main;

 interface

 uses app,dialogs,views,objects,drivers,msgbox,crt,memory;

  const cmhelp=200;

        cmdos=201;

        cmpause=202;

        cmabout=203;

        cmopen=204;

        cmnew=205;

        cmrename=206;

        cmerase=207;

        cmparole=208;

        cmcalend=209;

        cmcalc=210;

        cmgame=211;

        cmexit=212;

        cmedit=213;

        cmnil=214;

        cmin=215;

        cmout=216;

        cmrec=217;

        cmaehelp=218;

        cmclear=219;

        cmreturn=220;

        cmfar=221;

        cmother=222;

        cmwhy=223;

        cmreport=224;

        cmprint=225;

        cmmhelp=226;

        cmmachnext=227;

        cmmachprev=228;

        cmtext=229;

        cmwin=230;

        cmnc=231;

        cmwinpbrush=232;

        cmwinwrite=233;

        cmwincard=234;

  var control:word;

  type pknoledgebank=^tknoledgebank;

       tknoledgebank=object(tlistbox)

        foc:string;

        function valid(command:word):boolean;virtual;

        constructor load(var s:tstream);

        procedure store(var s:tstream);

       end;

       pbankwindow=^tbankwindow;

       tbankwindow=object(tdialog)

        constructor load(var s:tstream);

        procedure store(var s:tstream);

        procedure handleevent(var event:tevent);virtual;

       end;

       pnewwindow=^tnewwindow;

       tnewwindow=object(tdialog)

        constructor load(var s:tstream);

        procedure store(var s:tstream);virtual;

       end;

       prenamewindow=^trenamewindow;

       trenamewindow=object(tdialog)

        constructor load(var s:tstream);

        procedure store(var s:tstream);virtual;

       end;

       pprotectedstream = ^tprotectedstream;

       tprotectedstream = object(tbufstream)

        procedure error(code, info: integer); virtual;

       end;

       pdatabase=^tdatabase;

       tdatabase=object(tcollection)

        constructor load(var s:tstream);

        procedure store(var s:tstream);virtual;

       end;

       prulebase=^trulebase;

       trulebase=object(tcollection)

        constructor load(var s:tstream);

        procedure store(var s:tstream);virtual;

       end;

       pbasis=^tbasis;

       tbasis=object(tobject)

        name:string;

        namefile:string;

        base:tresourcefile;

       end;

       pfact=^tfact;

       tfact=object(tcollection)

        atribut:string;

        question:string;

        constructor load(var s:tstream);

        procedure store(var s:tstream);virtual;

       end;

       pvalue=^tvalue;

       tvalue=object(tobject)

        slot:string;

        mark:boolean;

        con:boolean;

        constructor load(var s:tstream);

        procedure store(var s:tstream);virtual;

       end;

       prule=^trule;

       trule=object(tcollection)

        constructor load(var s:tstream);

        procedure store(var s:tstream);virtual;

       end;

       punital=^tunital;

       tunital=object(tobject)

        slot:word;

        con:boolean;

        constructor load(var s:tstream);

        procedure store(var s:tstream);virtual;

       end;

       pstatewindow=^tstatewindow;

       tstatewindow=object(tdialog)

        constructor load(var s:tstream);

        procedure store(var s:tstream);

       end;

       patributeditor=^tatributeditor;

       tatributeditor=object(tdialog)

        constructor load(var s:tstream);

        procedure store(var s:tstream);virtual;

        procedure handleevent(var event:tevent);virtual;

        procedure inbase(basis:pbasis;var database:pdatabase);

        procedure outbase;

        procedure recbase(database:pdatabase);

        procedure aehelp;

        procedure clearbase;

        procedure callstate;

        procedure callnext;

       end;

       pvalueeditor=^tvalueeditor;

       tvalueeditor=object(tdialog)

        constructor load(var s:tstream);

        procedure store(var s:tstream);virtual;

        procedure handleevent(var event:tevent);virtual;

        procedure infact(basis:pbasis;var database:pdatabase);

        procedure recbase(database:pdatabase);

        procedure vehelp;

        procedure clearbase;

        procedure callquestion;

        procedure callnext;

       end;

       pruleeditor=^truleeditor;

       truleeditor=object(tdialog)

        constructor load(var s:tstream);

        procedure store(var s:tstream);virtual;

       end;

       pmachine=^tmachine;

       tmachine=object(tdialog)

        constructor load(var s:tstream);

        procedure store(var s:tstream);virtual;

        procedure handleevent(var event:tevent);virtual;

        procedure nextquestion;

        procedure previousquestion;

       end;

       pmanager=^tmanager;

       tmanager=object(tdialog)

        constructor load(var s:tstream);

        procedure store(var s:tstream);virtual;

        procedure handleevent(var event:tevent);virtual;

        procedure why;

        procedure report;

        procedure print;

        procedure mhelp;

       end;

       pworkunital=^tworkunital;

       tworkunital=object(tunital)

        num:word;

       end;

       pruleviewer=^truleviewer;

       truleviewer=object(tlistviewer)

        constructor load(var s:tstream);

        procedure store(var s:tstream);virtual;

       end;

  const rnewwindow:tstreamrec=(

         objtype:100;

         vmtlink:ofs(typeof(tnewwindow)^);

         load:@tnewwindow.load;

         store:@tnewwindow.store);

        rrenamewindow:tstreamrec=(

         objtype:101;

         vmtlink:ofs(typeof(trenamewindow)^);

         load:@trenamewindow.load;

         store:@trenamewindow.store);

        rknoledgebank:tstreamrec=(

         objtype:102;

         vmtlink:ofs(typeof(tknoledgebank)^);

         load:@tknoledgebank.load;

         store:@tknoledgebank.store);

        rruleviewer:tstreamrec=(

         objtype:116;

         vmtlink:ofs(typeof(truleviewer)^);

         load:@truleviewer.load;

         store:@truleviewer.store);

        rbankwindow:tstreamrec=(

         objtype:103;

         vmtlink:ofs(typeof(tbankwindow)^);

         load:@tbankwindow.load;