Здравствуйте, Гость
Понедельник, 25.09.2017, 06:52
Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: stalker, Ekz 
Форум » Все о Delphi » Начинающим » Нужна помощь! (...)
Нужна помощь!
HeadShotДата: Четверг, 26.01.2012, 00:14 | Сообщение # 1
Ранг 1
Группа: Пользователи
Сообщений: 1
Награды: 0
Репутация: 0
Статус: Offline
Создал бота болтуна, но 1 проблема при запуске когда начинаешь с ним разговаривать говорит каждый раз одно и тоже по порядку cколько бы раз не перезапускал, хотя поставил что бы давал ответы рандомно.
Прошу помочь sad
Прикрепления: Unit1.pas(3Kb)
 
skycarДата: Четверг, 26.01.2012, 00:40 | Сообщение # 2
Ранг 6
Группа: Проверенные
Сообщений: 116
Награды: 5
Репутация: 31
Статус: Offline
Зачем тебе столько условий? Это плохой стиль кодинга. Уж лучше создай массив или TStringList объект, а ответы грузи из текстового файла, и будет у тебя бот гибким и удобным в настройке ответов
Code

var Answers: TStringList;
  R: Integer;
...
Randomize;
Answers:=TStringList.Create;
Answers.LoadFromFile('answers.txt');
R:=Random(30) + 1;
...
ICQClient1.SendMessage(UIN, Answers[R]); // например так


Вот по такому примеру можно.

Добавлено (26.01.2012, 00:40)
---------------------------------------------
Только ты значения R выбирай по количеству строк в Answers (это свойство Count; чтоб обратиться к какой-нибудь строке в объекте класса TStringList, нужно написать вызов как к элементу массива: Answers[0] - это и есть самая первая строка, если строки вообще есть в объекте)

 
Форум » Все о Delphi » Начинающим » Нужна помощь! (...)
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2017
Хостинг от uCoz