|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
"Понимание" команд
Здравствуйте, подскажите возможно ли чтобы я говорю в микрофон а программа понимала команды?
|
#3
|
|||
|
|||
Цитата:
А как сделать, чтобы можно было добавлять команды не в код: Код:
case dwID of 1: fForm.Color := clRed; 2: fForm.Color := clGreen; 3: fForm.Color := clBlue; end а в какой нибудь компонент, в мемо или в стринг грид и уже из него подставлять команды. Я так поняла нужно использовать цикл? |
#4
|
||||
|
||||
Да, циклом, но всё равно в код, из мемо примерно так
Код:
... for i := 0 to Memo.Lines.Count -1 do case StrToInt(Memo.Lines[i]) of .. ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
|||
|
|||
Значит я добавлю два мемо, в один запишу:
clRed clGreen clBlue ........ а в другой: Red Green Blue ...... и запишу в коде так вместо Код:
AddCommand(1, 'Red', 'FormColor', ''); AddCommand(2, 'Green', 'FormColor', ''); AddCommand(3, 'Blue', 'FormColor',''); это Код:
for i:=0 to Memo2.Items.Count -1 do AddCommand(i, 'Memo2.Lines[i]', 'FormColor',''); вместо Код:
case dwID of 1: fForm.Color := clRed; 2: fForm.Color := clGreen; 3: fForm.Color := clBlue; end Код:
for i := 0 to Memo1.Lines.Count -1 do if StrToInt(Memo1.Lines[i]) then fForm.Color := Memo1.Lines[i]; то есть, хочу чтобы оно циклом добавлялось нужным цветом. |
#6
|
||||
|
||||
Такое
Код:
... fForm.Color := Memo1.Lines[i]; ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#7
|
|||
|
|||
Теоретически да))(зачастую такая функция в телефонах
но я еще не встречал такого)) |