INTERNET
 :
  |    

/

, . /

1 | 2 | 3 | 4 | 5 | 6

 
1 2 3 4 5 

slot));

s.read(mark,sizeof(mark));

s.read(con,sizeof(con))

end;

procedure tvalue.store(var s:tstream);

begin

s.write(slot,sizeof(slot));

s.write(mark,sizeof(mark));

s.write(con,sizeof(con))

end;

constructor trule.load(var s:tstream);

begin

tcollection.load(s)

end;

procedure trule.store(var s:tstream);

begin

tcollection.store(s)

end;

constructor tunital.load(var s:tstream);

begin

s.read(slot,sizeof(slot));

s.read(con,sizeof(con));

end;

procedure tunital.store(var s:tstream);

begin

s.write(slot,sizeof(slot));

s.write(con,sizeof(con));

end;

constructor tstatewindow.load(var s:tstream);

begin

tdialog.load(s)

end;

procedure tstatewindow.store(var s:tstream);

begin

tdialog.store(s)

end;

constructor tatributeditor.load(var s:tstream);

begin

tdialog.load(s)

end;

procedure tatributeditor.store(var s:tstream);

begin

tdialog.store(s)

end;

procedure tatributeditor.handleevent(var event:tevent);

begin

tdialog.handleevent(event);

if event.what=evcommand then

case event.command of

cmin:inbase(basis,database);

cmout:outbase;

cmrec:recbase(database);

cmaehelp:aehelp;

cmclear:clearbase;

cmreturn:callstate;

cmfar:callnext;

else

exit

end;

clearevent(event)

end;

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

var nildata:string;

begin

inputatribut^.getdata(atributdata);

inputquestion^.getdata(questiondata);

fact:=new(pfact,init(10,10));

with fact^ do

begin

atribut:=atributdata;

question:=questiondata;

end;

nildata:='';

database^.insert(fact);

inputatribut^.setdata(nildata);

inputquestion^.setdata(nildata);

selectnext(true)

end;

procedure tatributeditor.outbase;

begin

end;

procedure tatributeditor.recbase(database:pdatabase);

begin

basis^.base.put(database,' '+basis^.name);

basis^.base.flush

end;

procedure tatributeditor.aehelp;

begin

end;

procedure tatributeditor.clearbase;

begin

database^.deleteall

end;

procedure tatributeditor.callstate;

begin

exit

end;

procedure tatributeditor.callnext;

begin

valuesediting

end;

constructor tvalueeditor.load(var s:tstream);

begin

tdialog.load(s)

end;

procedure tvalueeditor.store(var s:tstream);

begin

tdialog.store(s)

end;

procedure tvalueeditor.handleevent(var event:tevent);

begin

tdialog.handleevent(event);

if event.what=evcommand then

case event.command of

cmin:infact(basis,database);

cmrec:recbase(database);

cmaehelp:vehelp;

cmclear:clearbase;

cmreturn:callquestion;

cmfar:callnext;

else

exit

end;

clearevent(event)

end;

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

var nildata:string;

begin

inputvalue^.getdata(valuedata);

value:=new(pvalue,init);

with value^ do

begin

slot:=valuedata;

mark:=false;

con:=false;

end;

fact^.insert(value);

database^.insert(fact);

nildata:='';

inputvalue^.setdata(nildata)

end;

procedure tvalueeditor.recbase(database:pdatabase);

var i,j:word;

begin

basis^.base.delete(' '+basis^.name);

basis^.base.put(database,' '+basis^.name);

basis^.base.flush;

end;

procedure tvalueeditor.vehelp;

begin

end;

procedure tvalueeditor.clearbase;

begin

end;

procedure tvalueeditor.callquestion;

begin

atributsediting

end;

procedure tvalueeditor.callnext;

begin

rulesediting

end;

constructor truleeditor.load(var s:tstream);

begin

tdialog.load(s)

end;

procedure truleeditor.store(var s:tstream);

begin

tdialog.store(s)

end;

constructor tmachine.load(var s:tstream);

begin

tdialog.load(s)

end;

procedure tmachine.store(var s:tstream);

begin

tdialog.store(s)

end;

procedure tmachine.handleevent(var event:tevent);

begin

tdialog.handleevent(event);

if event.what=evcommand then

case event.command of

cmnext:nextquestion;

cmprev:previousquestion;

else

exit

end;

clearevent(event)

end;

procedure tmachine.nextquestion;

begin

end;

procedure tmachine.previousquestion;

begin

end;

constructor tmanager.load(var s:tstream);

begin

tdialog.load(s)

end;

procedure tmanager.store(var s:tstream);

begin

tdialog.store(s)

end;

procedure tmanager.handleevent(var event:tevent);

begin

tdialog.handleevent(event);

if event.what=evcommand then

case event.command of

cmwhy:why;

cmreport:report;

cmprint:print;

cmmhelp:mhelp;

else

exit

end;

clearevent(event)

end;

procedure tmanager.why;

begin

end;

procedure tmanager.report;

begin

end;

procedure tmanager.print;

begin

end;

procedure tmanager.mhelp;

begin

end;

procedure start;

var f:text;

a:string;

begin

assign(f,'serve.key');

reset(f);

read(f,a);

if a<>'!!!' then

begin

close(f);

writeln;

writeln(' start.bat ""');

writeln;

writeln(' ');

readln;

halt

end;

close(f)

end;

procedure finish;

var f:text;

a:string

 
1 2 3 4 5 


Copyright © 2005—2007 «RefStore.Ru»