Проверка на ошибки

@NyxCB · Регистрация: 15.10.2015

Author24 — интернет-сервис помощи студентам

Шалом. Ребят, есть форма, в которой много Button'ов, и соответственно, я решил запилить поиск по имени. В пример привожу отрывок кода:

Delphi

if Edit1.Text='assoc' then Form7.Show;
if Edit1.Text='ASSOC' then Form7.Show;
if Edit1.Text='attrib' then Form8.Show;
if Edit1.Text='ATTRIB' then Form8.Show;
if Edit1.Text='break' then Form9.Show;
if Edit1.Text='BREAK' then Form9.Show;
if Edit1.Text='BCDEDIT' then Form10.Show;
if Edit1.Text='bcdedit' then Form10.Show;
if Edit1.Text='cacls' then Form11.Show;
if Edit1.Text='CACLS' then Form11.Show;
if Edit1.Text='CALL' then Form12.Show;
if Edit1.Text='CALL' then Form12.Show;

и т.д.
В общем, если пользователь вводит в Edit1 то, чего не задано, нужно запилить showmessage('Такой команды нет!');
Подскажите, как это можно реализовать.

@cfbogd · 01.04.2017, 17:33

короче делайте так:

Delphi

case LowerCase(Edit1.Text) of
'assoc':Forn7.Show;
'attrib':Form8.Show;
'break':Form9.Show;
. . . //текст в строке в нижнем регистре
'call':Form12.Show else showmessage('Такой команды нет!'); 
end;

@Puporev · 01.04.2017, 17:47

Создайте константный массив с этими словами

Delphi

1	const a:array[1..12] of string[20];

и проверяйте ввод

Delphi

1
2
3

i:=1;
while(i<=12)and(Edit1.Text<>a[i]) do inc(i);
if i>5 then showmessage('Такой команды нет!');

Добавлено через 5 минут

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

case LowerCase(Edit1.Text) of

Не во всех версиях работает.

@NyxCB · 04.04.2017, 01:22 **[ТС]**

Такая вот фича
[Error] Uni6.pas(138): '=' expected but ';' found

Delphi

1	const a:array[1..12] of string[20];

@northener · 04.04.2017, 01:36

Это не фича. Это язык Паскаль/Дельфи. При описании констант (и типов) нужно использовать знак '='. А знак ':' используется при описании переменных.
P.S. Исключение делается для типизированных констант, если они допустимы опциями вашего проекта. Но тогда это должно было выглядеть как

Delphi

1	const a:array[1..12] of string[20] = ('qwe',...,'asd');

	04.04.2017, 01:36

Опции темы

Проверка на ошибки

Решение