Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Перезагрузить страницу

Чтобы при вводе в Edit1 буквы Ы или У выводилось сообщение

Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
Предыдущее Предыдущее сообщение   Следующее сообщение Следующее
  #8  
Старый 31.10.2012, 17:53
fufic fufic вне форума
Прохожий
  
Регистрация: 24.10.2012
Сообщения: 12
Репутация: выкл
По умолчанию
Цитата:
Сообщение от poli-smen
TrimLeft просто убирает из строки пробелы слева.
Trim убирает с обеих сторон.
Последнюю букву можно получить так:
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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;

Понятно, спасобо
Ответить с цитированием
 

« Предыдущая тема | Следующая тема »

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Древовидный вид Древовидный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 13:41.

Обратная связь - Главная страница сайта Delphi Sources - Вверх

 

Сайт

Форум

FAQ

Соглашения

Прочее
 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025