|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Удаление последнего символа из строки...
Доброго времени суток!
Помогите пожалуйста решить следующую проблему: Мне нужно чтобы при одном условии из Edit'а удалялся последний символ, но у меня процедура Delete удаляет всё что только можно но не его! У меня это выглядит вот так: Код:
procedure TForm1.EditChange(Sender: TObject); begin DelOp := Edit.Text; if copy(Edit.Text, length(Edit.Text), 1) = '+' then delete(DelOp, length(DelOp), 1); Edit.Text := DelOp; Edit.SelStart := lenght(delOp); end; Что не так? Последний раз редактировалось link-oln, 29.03.2011 в 00:44. |