Как обработать текст в буфере перед вставкой в edit?

[Filka]

А мне реализация от min@y™ понравилась.

А если не нужно удалять точки для всех Edit-ов?

[Iron Monk]

Сообщение от Filka

А мне реализация от min@y™ понравилась.

А если не нужно удалять точки для всех Edit-ов?

Речь шла о точках в буфере - а буфер, хоть для едитов, хоть не для едитов...

[Filka]

Тут у Edit-а заменяется текст, а у буфера - нет.

procedure TEdit.PasteWithoutPoints;
begin
  Clipboard.Open();
  try
    Self.SelText:= StringReplace(Clipboard.AsText, '.', '', [rfReplaceAll]);
  finally
    Clipboard.Close();
  end;
end;

Или как?

[Iron Monk]

Сообщение от Filka

Или как?

Никто не запрещал добавить строчку кода:

  Clipboard.AsText:= StringReplace(Clipboard.AsText, '.', '', [rfReplaceAll]);
  Self.SelText:= Clipboard.AsText;

[min@y™]

Интересно, а нахрена автору удалят точки из вставляемого текста?...

[Filka]

Тоже самое можно сделать и в моей реализации:

case Message.Msg of
  WM_PASTE:
    begin
      S := Clipboard.AsText;
      RemoveDots(S);
      Clipboard.AsText := S;
      FEdit.SelText := Clipboard.AsText;
    end;

Только как-то не кошерно, когда "левая" программа "пакостит" в буфере обмена, т.к. текст может понадобится не только в собственной программе...

[Iron Monk]

Сообщение от Filka

Только как-то не кошерно, когда "левая" программа "пакастит" в буфере обмена, т.к. текст может понадобится не только в собственной программе...

У каждого свои запросы...

Подскажите пожалуйста, как вставить текст из буфера, предварительно его обработав?
Мне нужно в Edit вставить текст, но перед вставкой нужно удалить из него все точки.