TEdit.SelSelText (вставка текста)

[i.r.khayrullin]

Добрый вечер! В VCL есть замечательная функция, позволяющая заменить выделенный текст требуемым. В FMX ее нет, и чем заменить, я придумать не смог.

 

Код для VCL

procedure TForm1.NButtonClick(Sender: TObject);begin
  Edit1.SetSelText(TButton(Sender).Caption);
end;

И тоже самое для FMX

procedure TForm1.NButtonClick(Sender: TObject);var
  aNew: String;
  aChar: String;
  aPos: Integer;
begin
  aChar:= TButton(Sender).Text;
  aPos:= Edit1.SelStart;
  Edit1.DeleteSelection;
  aNew:= Edit1.Text;
  aNew.Insert(aPos, aChar);
  Edit1.Text:= aNew;
  Edit1.SelStart:= aPos + 1;
end;

Есть идеи, как это можно реализовать красивее и правильнее?

[kami]

Сделайте отдельным методом и оберните это в хелпер, к примеру.

Аналогичного метода вроде как нет, даже TCustomEdit.PasteFromClipboard использует похожий механизм.

[Равиль Зарипов (ZuBy)]

StringReplace, не?

[i.r.khayrullin]

Сделайте отдельным методом и оберните это в хелпер, к примеру.

Аналогичного метода вроде как нет, даже TCustomEdit.PasteFromClipboard использует похожий механизм.

Жаль, но по всей видимости вы правы

 

StringReplace, не?

К сожалению, StringReplace заменит первое вхождение в строке, если есть участок, аналогичный выделенному.

[Brovin Yaroslav]

У TEdit, есть специальный метод по замене выделенного текста новой строкой:

procedure Replace(const AStartPos: Integer; const ALength: Integer; const AStr: string);

Поэтому в вашем случае замена будет выглядить так:

Edit.Replace(Edit.SelStart, Edit.SelLength, NewString);