[poli-smen]

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

В TEdit через буфер обмена попадает строка, которая может содержать спецсимволы. Мне надо при выходе из эдита найти эти символы и заменить их другими, обычными. Раньше я делал это в VBA, все было достаточно просто. Здесь (в Delphi 7) все мои попытки наталкиваются на то, что передаваемые в параметры спецсимволы (a и b) показываются как пустые и не обрабатываются. При наличии хоть одного спецсимвола вся строка становится пустой .

Компонент TEdit из Delphi 7 не поддерживает Unicode.
Установи себе компоненты TNT и используй TTntEdit вместо TEdit.
Последнюю бесплатную версию компонент TNT можно скачать >>отсюда<<.

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

Код:

function substitute(s:WideString; a,b: WideChar): WideString;
var
  found: boolean;
  i: integer;
  c: WideString;
begin
  found:=true;
  while found do begin
    found:=false;
    for i:=1 to Length(s) do begin
      c:=copy(s,i,1);
      if c=a then begin
        found:=true;
        s:=copy(s,1,i-1)+b+copy(s,i+1,1000);
      end;
    end;
  end;
  Result:=s;
end;
.....

Какой неоптимальный код

Вот так попроще будет:

Код:

function substitute(const s: WideString; a, b: WideChar): WideString;
var
  i: Integer;
begin
  Result := s;

  for i := 1 to Length(Result) do
    if Result[i] = a then Result[i] := b;
end;