Цитата:
Сообщение от 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 нет