[poli-smen]

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

Как сделать чтобы если вводишь в поле Edit1 слово с буквой начинающееся на Ы или У после нажатия кнопки Button1 выводилось сообщение что нельзя выводить слова на такие буквы. Как именно это сделать. Кажется так что-то со строками Length или еще что-то...

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (TrimLeft(Edit1.Text)+' ')[1] in ['У', 'у', 'Ы', 'ы'] then
    MessageDlg('нельзя выводить слова на такие буквы', mtError, [mbOK], 0);
end;