Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Найти сумму всех элементов матрицы http://www.cyberforum.ru/delphi-beginners/thread325729.html
найти сумму всех элементов двумерного массива 4х4!
Delphi установка borland Delphi 7 Enterprise Здравствуйте,вопрос такой.хочу установить компилятор,так там при установке есть варианты выборочной установки,я обычно устанавливал полностью весь пакет,но думаю полностью он не нужен,не подскажите... http://www.cyberforum.ru/delphi-beginners/thread325723.html
Delphi Заданая последовательность состоит из 1 и 0,определить количество Mзначных чисел,делящихся на 21
Уважаемые форумчане .нужна ваша помощь в решении задачи по информатике(язык программирования Delphi7).Задача следующая :Заданная последовательность состоит из 1 и 0,определить количество M-значных...
Delphi Пишу тест
Здравствуйте. Пишу тест в Дельфи. Одна форма для создания теста, другая для прохождения теста. При создании теста записываю варианты правильных ответов в массив. При вызове этого массива из юнита...
Delphi Тест с выводом результата сразу после ответа на вопрос http://www.cyberforum.ru/delphi-beginners/thread325653.html
Здравствуйте. Пытаюсь сделать тест в котором бы после того как пользователь нажимает на кнопку "Ответить" сразу выводится сообщение правильно ли он ответил или нет. Одновременно осуществляется...
Delphi Форма курсора Добрый вечер, помогите пожалуйста, нужно разработать компонент с функциональностью стандартной метки TLabel и возможностью изменения параметров отображения метки (размер, цвет, подчеркивание) и формы... подробнее
Mawrat
12830 / 5738 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
26.06.2011, 21:05 0

Как рандомно менять слова в файле. Движок по обработке команд в тексте.

26.06.2011, 21:05. Просмотров 1213. Ответов 19
Метки (Все метки)

Ответ

Там точка с запятой пропущена в конце строки:
Delphi
1
if i > 1 then aRes := aRes + ', '
Вот так надо подправить:
Delphi
1
2
3
4
5
6
7
8
9
10
  //Новая команда. Начало.
  end else if aName = 'RANDOM_NWORDS' then begin
    Num1 := 0;
    if aSlArg.Count > 0 then Num1 := StrToInt(aSlArg[0]);
    aRes := '';
    for i := 1 to Num1 do begin
      if i > 1 then aRes := aRes + ', '; //Здесь добавлена точка с запятой.
      aRes := aRes + aSlWords[ Random(aSlWords.Count) ];
    end;
  //Новая команда. Конец.


Вернуться к обсуждению:
Как рандомно менять слова в файле. Движок по обработке команд в тексте.
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.06.2011, 21:05
Готовые ответы и решения:

Менять рандомно местами ВСЕ строки в txt файле
Привет. Как менять строки местами в txt файле ? Нужна функция которая...

Задача по обработке файлов. Определить,есть ли в файле английские слова и сколько
Заметил,что на неё решения так и не нашли((может кто то знает,как её делать, ...

Как менять цвета рандомно, нашел код который работает, но я кое-что не понимаю
Искал в инете как менять цвета рандомно, нашел код который работает, но я...

Как лучше - создавать и уничтожать несколько команд или каждый раз просто менять свойство команды
У меня несколько команд: 1) запрос к одной таблице; 2) очистка второй таблицы;...

подскажите по обработке команд в MVVM
Добрый день! Уважаемые форумчане, подскажите пожалуйста где можно в доступном...

19
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru