|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Я бы сделал как-нибудь так (будет работать и с Ctrl+V):
Код:
function DblPlusExists(S: String; var P: Integer): Boolean; begin P := Pos('++', S); Result := P > 0; end; procedure TForm1.Edit1Change(Sender: TObject); var I: Integer; S: String; begin while DblPlusExists(Edit1.Text, I) do begin S := Edit1.Text; Delete(S, I, 1); Edit1.Text := S; end; end; Последний раз редактировалось ryderx34, 30.03.2011 в 19:57. |
#17
|
|||
|
|||
2ryderx34. Вот парню лофа, столько примеров...
Кстати и Мой вариант и вариант Black Raider тоже работают с Ctrl+V... |
#18
|
|||
|
|||
Всем, огромное спасибо! Информация была полезной!
|