Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты! Подскажите пожалуйста как извлечь из label.caption или edit.text крайний правый символ и отобразить его в другом caption? И как поставить ограничение, чтоб в поле Edit мог вводится только 1 символ?

Вопрос задал: HellBeast (статус: Посетитель) Вопрос отправлен: 20 мая 2010, 13:25 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Извлечение крайнего правого символа:

var
  RightSymbol: Char;
begin
  if Label1.Caption <> ''
    then RightSymbol:= Label1.Caption[Length(Label1.Caption)]
    else RightSymbol:= #0;
end;

Edit1.MaxLength:= 1;

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 20 мая 2010, 13:38

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.