[Noooob]

Здравствуйте, подскажите возможно ли чтобы я говорю в микрофон а программа понимала команды?

[AlexSku]

Здесь это обсуждалось.

[kaituk]

Теоретически да))(зачастую такая функция в телефонах
но я еще не встречал такого))

[Dasha1986]

Сообщение от AlexSku

Здесь это обсуждалось.

А как сделать, чтобы можно было добавлять команды не в код:

Код:

1 2 3 4 5

case dwID of    1: fForm.Color := clRed;    2: fForm.Color := clGreen;    3: fForm.Color := clBlue;  end

а в какой нибудь компонент, в мемо или в стринг грид и уже из него подставлять команды. Я так поняла нужно использовать цикл?

[Alegun]

Да, циклом, но всё равно в код, из мемо примерно так

Код:

1 2 3 4

... for i := 0 to Memo.Lines.Count -1 do case StrToInt(Memo.Lines[i]) of .. ...

новые команды забиваются и выполняются немного по-другому, раздельно

[Dasha1986]

Значит я добавлю два мемо, в один запишу:

clRed
clGreen
clBlue
........

а в другой:
Red
Green
Blue
......
и запишу в коде так
вместо

Код:

1 2 3

AddCommand(1, 'Red', 'FormColor', ''); AddCommand(2, 'Green', 'FormColor', ''); AddCommand(3, 'Blue', 'FormColor','');

это

Код:

1 2	for i:=0 to  Memo2.Items.Count -1  do AddCommand(i, 'Memo2.Lines[i]', 'FormColor','');

вместо

Код:

1 2 3 4 5

case dwID of     1: fForm.Color := clRed;     2: fForm.Color := clGreen;     3: fForm.Color := clBlue;   end

Код:

1 2 3 4

for i := 0 to Memo1.Lines.Count -1 do if StrToInt(Memo1.Lines[i]) then   fForm.Color := Memo1.Lines[i];

то есть, хочу чтобы оно циклом добавлялось нужным цветом.

[Alegun]

Такое

Код:

1 2 3

... fForm.Color := Memo1.Lines[i]; ...

не прокатит - цвет это не стринг, нужно преобразование с помощью StringToColor

[Dasha1986]

Сделала так, только не работает, выдает один цвет, голубой(((

Код:

1 2 3 4 5 6

for i := 0 to Form1.Memo2.Lines.Count -1 do begin if dwID = StrToInt(Form1.Memo2.Lines[i]) then   fForm.Color := StringToColor(Form1.Memo2.Lines[i]); end;

Код:

1 2 3 4

for i:=0 to  Memo1.Lines.Count -1  do begin AddCommand(i, Memo1.Lines[i], 'FormColor','Change form color to red'); end;

[Alegun]

function StringToColor(S: string): TColor;

Данная функция преобразует 'clRed' или '$0000FF' во внутреннее значение цвета...

проверяйте с помощью ColorToString

З.Ы. Небесный говорите лишь один? Возможно у вас подключен (или был) манифест, попробуйте удалить его упоминание ещё и из uses

[Dasha1986]

Сообщение от Alegun

проверяйте с помощью ColorToString

З.Ы. Небесный говорите лишь один? Возможно у вас подключен (или был) манифест, попробуйте удалить его упоминание ещё и из uses

мне кажется, что цикл выполняется не так как нужно.

[Alegun]

Похоже он вообще крутится впустую, поскольку попытка сравнить dwID со строковым значением из мемо2 впоследствии передаваемым как определитель цвета приведёт к ошибке - надо сравнивать с просто i

[Dasha1986]

Если сравнивать, то там нужно по номеру команды, то в i он выводит последний цвет, то есть в i идет общее количество строк, а не нужной.

[Alegun]

Смотрите тогда где у вас лежит номер команды - а так все присходит как описано выше, обрабатывается одно и тоже значение