Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Приложение должно принимать команды Pascal

Автор: SULLEN_27 23.7.2012, 15:26

Доброго дня! подскажите пожалуйста:
Есть набор данных из целых чисел(допустим записанный в файл). каким образом сделать так, что бы пользователь ввел команду "Count" и приложение отобразило количество чисел в наборе. Т.е. каким образом привязать команду допустим COUNT к определенному действию. Реализовываю на Delphi консольное приложение.

Автор: Poseidon 23.7.2012, 15:34

Код


if polzovatel_vvel = 'Count' then {...}

элементарно же

Автор: SULLEN_27 23.7.2012, 15:41

ок спасибо, чет запарился слеганца просто я ставил := а надо без :

Добавлено через 2 минуты и 30 секунд
еще вопрос. как сделать что бы регистр не имел значения при вводе команд, а то ввожу COUNT заглавными а он не канает

Автор: Данкинг 23.7.2012, 16:14

Uppercase ?

Автор: SULLEN_27 23.7.2012, 19:47

Данкинг, Ну Uppercase это изменение регистра из нижнего в верхний и наоборот если я понимаю, а мне нужно: есть набор данных записанный в файл, и что бы при вводе пользователем команды count или COUNT не зависимо от регистра выполнялась определенная команда, т.е. регистр не имел бы значения.

Автор: Данкинг 23.7.2012, 20:21

if uppercase(polzovatel_vvel) = 'COUNT' ...

Автор: SULLEN_27 23.7.2012, 20:35

Данкинг, Хороший ты человек, сча по пробую. Ты всегда откликаешься на помошь)))

Добавлено через 6 минут и 39 секунд
Неа не канает так Данкинг вводишь и в нижнем и в верхнем все равно никак не проходит. Вот пример:

Код



if uppercase(s) ='count' then
   begin
   writeln('normal6no');
  readln(s);
  end
   else
    begin
      writeln ('xren6');
  readln(s);
    end;
  end.

Добавлено через 7 минут и 38 секунд
переменная S у меня string

Автор: Данкинг 23.7.2012, 20:44

В этом ничего странного не находишь?

Код


if uppercase(s) ='count'

Посмотри мой пример ещё раз:

Код


if uppercase(polzovatel_vvel) = 'COUNT' ...

Автор: SULLEN_27 23.7.2012, 20:47

Ага понял просто не внимателен я был. спасибо тебе.

Добавлено через 10 минут и 33 секунды
Данкинг, Ну посмотри пожалуйста вот на прикрепленный файл. в общем как команду привязать к определенному действию теперь понял, а еще пользователь может ввести какой то параметр к определенной команде. В общем как мне еще к команде привязать разные параметры?
типа

SORT [asc|desc]
Отсортировать числа по возрастанию (asc) или по убыванию (desc). Если параметр не указан, сортировать по возрастанию. SORT
SORT desc

Автор: Данкинг 23.7.2012, 21:05

Так сделай процедуры, которые выполняют то или иное действие, и вызывай соответствующую процедуру по соответствующей команде.

Автор: SULLEN_27 23.7.2012, 21:11

блин мне бы хоть маленький примерчик

Автор: Poseidon 29.7.2012, 11:03

Что-то мне кажется, что спустя год мы в этой теме компилятор напишем smile