[fufic]

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

[poli-smen]

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

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

Код:

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

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

Пипец народ обнаглел.

[robt]

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

слово с буквой начинающееся на Ы

а можно узнать хотябы парочку слов на Ы ?

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

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

а можно узнать хотябы парочку слов на Ы ?

ЫВАПРОЛДЖЭ, ЫФЪХЗЩШГНЕКУЦЙ.

[fufic]

А вот если нужно последние а не первые буквы, то вместо TrimLeft просто Trim?

[poli-smen]

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

А вот если нужно последние а не первые буквы, то вместо TrimLeft просто Trim?

TrimLeft просто убирает из строки пробелы слева.
Trim убирает с обеих сторон.
Последнюю букву можно получить так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  c: Char;
begin
  s := Trim(Edit1.Text);
  if s <> '' then
  begin
    c := s[Length(s)];
    ShowMessageFmt('Последняя буква "%s"', [c]);
  end else
  begin
    ShowMessage('Текст пустой');
  end;
end;

[fufic]

Сообщение от poli-smen

TrimLeft просто убирает из строки пробелы слева.
Trim убирает с обеих сторон.
Последнюю букву можно получить так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  c: Char;
begin
  s := Trim(Edit1.Text);
  if s <> '' then
  begin
    c := s[Length(s)];
    ShowMessageFmt('Последняя буква "%s"', [c]);
  end else
  begin
    ShowMessage('Текст пустой');
  end;
end;

Понятно, спасобо