INTERNET
 :
  |    

/

, . /

1 | 2 | 3 | 4 | 5 | 6

←  
1 2 3 4 5 

{$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;

←  
1 2 3 4 5 


Copyright © 2005—2007 «RefStore.Ru»