[poli-smen]

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

Вывести слова, в которых *нет символов-цифр.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Slovo: String;
begin
  Slovo := Edit1.Text;

  if LastDelimiter('0123456789', Slovo) > 0 then
    ShowMessage('В этом слове есть цифры')
  else
    ShowMessage('В этом слове нет цифр');
end;