unit AIObj
Разрабатываем экспертную систему. Урок 3. Приступим к
программированию
экспертной системы
Все статьи по данной теме
И так, довольно теории.
Пора приступить к практике. Вот пример простой обучающейся программы из книги
Криса Нейлора "Как построить свою экспертную систему", написана она на языке
БЕЙСИК (данный скриншот является цитатой из
книги Нейлора К. "Как построить свою
экспертную систему" ):
Попробуем перевести ее на
Delphi. Пока для упрощения создадим в Delphi
аналоги Print и Input. Для этого
создадим проект, в который добавим компонент TMemo, его
можно найти на закладке Standard*:
Назовем этот компонент
mmPrintFiled, а главную форму приложения frmExpertSystem.
Вот примерно как
все должно выглядеть*:
Реализуем аналог команды
Print:
procedure
TfrmExpertSystem.Print(AStr:string);
begin
mmPrintFiled.Lines.Add(AStr);
end; |
Да, и не забудьте объявить
эту процедуру в классе формы:
TfrmExpertSystem = class(TForm)
mmPrintFiled: TMemo;
private
{ Private
declarations }
public
{ Public
declarations }
procedure print(AStr:string);
end; |
Теперь займемся командой Input.
Создадим еще одну форму*:
Назовем ее frmInput, положим на форму
компонент TEdit, который назовем edInput.
Она у нас так же находиться на закладке Standard*:
Укажем у формы заголовок "Введите текст", кинем так же
на форму кнопочку "ОК" и приведем ее к такому виду*:
Теперь у класса основной формы реализуем метод Input:
function TfrmExpertSystem.Input:string;
var frm:TfrmInput;
begin
frm:=TfrmInput.Create(self);
frm.ShowModal;
Result:=frm.edInput.Text;
end; |
Что бы класс TfrmInput был доступен, подключим модуль формы frmInput к модулю
основной формы*:
И так, у нас теперь есть аналоги Print и
Input, и на следующем уроке мы уже сможем перевести
программу на БЕЙСИКЕ на Delphi, а потом будем
оптимизировать ее с применением возможностей объектно-ориентированного
программирования.
Скриншоты, помеченные знаком * ,
являются цитатами и иллюстрациями в
соответствии со ст. 1274 ГК РФ программного
продукта "Delphi", авторское право на
который принадлежит "Borland Software Corporation".
Все статьи по данной теме
|