Доброго времени суток!
Помогите пожалуйста решить следующую проблему:
Мне нужно чтобы при одном условии из 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;
Что не так?