←ïðåäûäóùàÿ ñëåäóþùàÿ→
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
|
|