[alexingor]

Сообщение от poli-smen

Установи себе компоненты TNT и используй TTntEdit вместо TEdit.

Спасибо за полезную информацию

Сообщение от poli-smen

Какой неоптимальный код Вот так попроще будет:

Код:

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;

Да, так безусловно красивее. Я еще ламер в дельфях, делаю первые пробы... Спасибо еще раз.