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

Form1.Button1.Caption := str;

end;

2: begin

Form1.Button2.Visible := true;

Form1.Button2.Caption := str;

end;

3: begin

Form1.Button3.Visible := true;

Form1.Button3.Caption := str;

end;

4: begin

Form1.Button4.Visible := true;

Form1.Button4.Caption := str;

end;

end;

end

else case n of

1: Form1.Button1.Visible := false;

2: Form1.Button2.Visible := false;

3: Form1.Button3.Visible := false;

4: Form1.Button4.Visible := false;

end;

end;

closefile (Namebzd);

end;

procedure TForm1.ExitClick(Sender: TObject);

begin

Halt(0);

end;