Delphi-删除单个字母之间的空格

Question

我的任务与本题相同：关于空间的问题，但作为一名新手，我需要使用TRegExp将最佳答案转换为Delphi语言(10.3 Rio(。

另一项任务是这样解决的：

with RegExp do
begin
Subject := Tmp;                                  // присваиваем Ф.И.О. уже ранее очищенным от суффиксов
RegEx := '^(.*) van de (.*)$';                     // проверяем на наличие "van de" в Ф.И.О.
if Match then
begin
Replacement := '1 2';
temp2 := RegExp.ComputeReplacement;
lstListAllFiles.Items.AddObject('index='+IntToStr(i)+' Найден префикс van de: "'+Tmp+'"', TObject(clOlive));
Tmp := temp2;
RecordFileName[i].OnlyPrefixAuthor := 'van de ';
lstListAllFiles.Items.AddObject('          Будет заменен на: "'+Tmp+'"', TObject(clOlive));
end;
end;

Answer 1

所以，我解决了我的任务(用一些技巧(：

Str:=RegExpIO.Replace(Str,'(?<=(?<!p{L})p{L})s(?=p{L}(?!p{L}))','')
Str:=ReplaceText(Str,'_','');

第一行搜索单个字符并删除它们之间的空白。这项工作适用于这类句子：">温蒂V·波尔"，">温蒂VК·波尔"。

第二行是这类句子的窍门：">Wendy VКR R Poll"、">Wendy VВR Poll[/strong>"等等