Главная/

Программирование, базы данных. /

Экспертная система

uses objects,main;

 begin

  registerobjects;

  listres.init(new(pprotectedstream,init('expert.blc',stcreate,1024)));

  bases:=new(pstringcollection,init(100,10));

  listres.put(bases,'Список');

  dispose(bases,done);

  listres.done

 end.