Курсовая работа: Программа построения грамматики для конечного автомата

MessageBox(form1.Handle,'Введите правильно состояния!!!', 'Error',mb_ok or mb_iconerror);

edit1.SetFocus;

exit;

end;

for i:=1 to length(s1)-1 do

for j:=i+1 to length(s1) do

if (s1[i]=s1[j]) then begin

MessageBox(form1.Handle,'Введи правильно буквы алфавита не должны повторяться!!!','Error',mb_ok or mb_iconerror);