Цитата:
|
Сообщение от TOJluK
ctrl+c, ctrl+v никто не отменял ))
|
Удаление последнего символа тоже не спасёт от Ctrl+V, юзер же может вставить ненужный символ и не в конец. Тогда уж что-то вроде этого делать:
Код:
procedure TForm1.EditChange(Sender: TObject);
begin
Edit.Text := StringReplace(Edit.Text, '+', '', [rfReplaceAll]);
Edit.SelStart := Lenght(Edit.Text);
end;