[UltraBloxX]

Тут есть исходник AI-Brain на сайте. Программа неплохая, но иногда происходит Access Violation. Это можно как-нибудь исправить? Я хотел её использовать для создания чатбот-плагина для QIP Infium, но фишка такая, что я не пойму в чем баг.

[PhoeniX]

Исходник в студию...... ©
*задолбало, когда спрашивают, а инфы - муха насидела...*

[UltraBloxX]

П.С. - Такая ошибка появляется редко. Я предполагаю что связано это с неправильным индексом массива.

http://www.delphisources.ru/files/so...r/ai-brain.zip

[UltraBloxX]

По моему - ошибка где-то в функции BrainAnswer или в одной из вызываемых ей.

[Страдалецъ]

1. Половину функций там можно заменить встроеными
2. Очень ненравиться мне вот эта функция, где в качестве переменной используется предопределнное ключевое слово. Если компилятор такое пропускает, то я даже незнаю что он приваивает и какую длину использует.

Код:

function FillWordByStar(Word: string) : string;
const
  Star = '*';
var
  i : integer;
begin
  Result := Word;
  for i := 1 to length(Word) do
  begin
    if Random(2) = 1 then
      Result[i] := Star;
  end;
end;

3. А здесь вообще ошибка:

Код:

 SmilesBase[Random(12)]

должно быть:

Код:

 SmilesBase[Random(12)+1]

т.к. массив задан от 1 до 12 а random генерит значения от 0 до 11

[UltraBloxX]

Вот мой переделанный исходник. Может в нем что-то неправильно. Изменения прокомментированы. Процедура FillWordByStar была вырезана за ненадобностью, SmilesBase[Random(12)+1] тоже убрано

http://narod.ru/disk/8672196000/AI-B...%202).rar.html