[igr37]

Сообщение от dr. F.I.N.

Win10 x32, D7, Excel 2007

Код:

var
...
  s: WideString;
  i: Integer;
begin
...
  s := Sheet.Cells[1, 1]; {значение в ячейке 'Внешний d=12, внутренний d=8'}
  i := Pos('d=', s);
  while i > 0 do
  begin
    s[i] := WideChar(216);
    i := Pos('d=', s);
  end;
  Sheet.Cells[1, 1] := s; {значение в ячейке стало 'Внешний Ø=12, внутренний Ø=8'}
...
end;

Спасибо за четкий пример в Delphi 6 работает только проект у меня во 2-ом а там нет WideString. WideChar есть а переменных WideString нет