[Vol4OK]

Вывести слова, в которых *нет символов-цифр.
Помогите пожалуйста.

Исключить из строки группы символов, расположенные между символами '(' , ')' вместе со скобками. *Вывести в алфавитном порядке все гласные буквы, входящие в этот текст.

Заставьте компьютер случайным образом загадать букву латинского (русского) алфавита. Предложите пользователю отгадать загаданную букву, помогая ему следующим образом. Если пользователем введена буква, стоящая слева от загаданной, то выводите пользователю сообщение "Правее!", а если справа - "Левее!".
Заранее спасибо!

[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;

[Vol4OK]

А как в консольном так сделать?

[poli-smen]

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

А как в консольном так сделать?

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  Dialogs,  SysUtils;

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

[M.A.D.M.A.N.]

Не в том разделе тема создана, больше для кода на шару подходит.