Отредактировать строку в буфере обмена (RAD 10.4)

[hexor_boo]

Нужно отредактировать строку в буфере обмена. А именно: убрать из неё CRLF'ы с их заменой на " " или ",". Собственно замену символов в строке я могу сделать. Интересует именно как скопировать содержимое буфера обмена в String. Как это можно сделать?

Варианты подходящих решений, как я вижу на настоящий момент:
1) Отредактировать строку с заменой символов прямо в буфере обмена и потом скопировать её в переменную типа String
2) Скопировать в переменную типа String содержимое буфера обмена и уже там делать замену символов.

Второе думаю проще?

[macomics]

Второе не только проще, но и правильнее. Для взаимодействия с буфером обмена используйте объект Clipboard

MyBufferString := Clipboard.AsText;
// Заменяйте все что нужно.

[hexor_boo]

2 macomics, а какой юнит нужно подключить чтобы обращаться к этому объекту в Delphi RAD 10.4 (Sydney)? Пробовал Fmx.Clipboard, Fmx.Clipboard.Win - не работает...

UPD: а ларчик просто открывался - нужно подключать стандартный юнит Clipbrd

[hexor_boo]

Задача стоит для компонента TcxTextEdit (библиотека компонентов DevExpress 19.1.2)
У него нет события OnChange и прикручено какое-то извращенство в виде OnEditing

Я пишу такой код:

procedure TFormSaveOrder.edAdrEditing(Sender: TObject; var CanEdit: Boolean);
Var
 strBuffer    : String;
 strCRLF      : String;
 strSeparator : String;
begin
 //If (edAdr.Text<>'') Then
 // Begin
   strBuffer:=Clipboard.AsText;
   strCRLF:=Chr(13)+Chr(10);
   strSeparator:='===>!<===';
   edAdr.Text:=ReplaceStr(strBuffer, strCRLF, strSeparator);
 // End;
end;

Кпирую в буфер обмена следующее:

 //If (edAdr.Text<>'') Then
 // Begin

И получаю в поле edAdr.Text следующий вывод:

 //If (edAdr.Text<>'') Then //If (edAdr.Text<>'') Then===>!<=== // Begin

Т.е. туда выводится первая из двух строк - CRLF отрубает вывод второй строки (вот это безобразие нужно как-то убрать) и далее выводятся как и нужно 1-я строка, разделитель, 2-я строка.

Встречался кто-то с такой задачкой?

[macomics]

Странный глюк. Попробуйте так

procedure TFormSaveOrder.edAdrEditing(Sender: TObject; var CanEdit: Boolean);
Var
 strBuffer    : String;
 strCRLF      : String;
 strSeparator : String;
begin
 //If (edAdr.Text<>'') Then
 // Begin
   strBuffer:=ReplaceStr(Clipboard.AsText, #13+#10, '===>!<===');
   edAdr.Text := strBuffer;
 // End;
end;

[hexor_boo]

Результат edAdr.Text:

 //If (edAdr.Text<>'') Then //If (edAdr.Text<>'') Then===>!<=== // Begin

[macomics]

Тогда стоит посмотреть где же глюк. В ReplaceStr или в Clipboard.AsText
Для начала выведите строки без замены из Clipboard.AsText
После попробуйте собственную функцию замены текста

function srplc(aText, aPattern, aReplace: String): String;
var
  t, r: String;
  s, l: LongInt;
begin
  t := aText;
  r := '';
  s := Pos(aPattern, t);
  l := Length(aPattern);
  while s > 0 do begin
    r := r + copy(t, Low(t), s) + aReplace;
    t := copy(t, s + l);
    s := Pos(aPattern, t);
  end;
  srplc := r + t;
end;

Как-то так. Опечатки думаю исправите. Оптимизация ни к чему. Надо понять где ошибка. А как временное решение пойдет.

[hexor_boo]

Открыл cxTextEdit.pas - имена переменных-свойств и методов классов НЕ в алфавитном порядке. Ужось. Не хотелось бы углубляться в его анализ.

[macomics]

А вам оно надо. Все решается внешними тестами.
Если хотите что-то найти, тогда открывайте контекстное меню на имени свойства и там будет 'Найти text' или как-то так. Потом по объявлению свойства в классе, на который вас перебросит сам редактор и там в контекстном меню уже будет 'Перейти к реализации text' или как-то так. Точно такого же эффекта можно добиться зажав Ctrl и щелкая ЛКМ по тексту в программе.

[hexor_boo]

2 macomics, благодарю!

Однако очень странно работает само событие OnEditing у этого компонента. Так, например если нажать CTRL+V в этом edAdr и прописать в обработчике события CanEdit:=False; (даже, например, после присвоения строки в Text), то строка в Text сотрется. А если сначала присвоить True, то потом невозможно присвоить False.

Через Ctrl-ЛКМ - это я знаю. Для этого компонента так не получилось.
Если все решается внешними тестами - нет смысла закапываться - согласен.