[igr37]

У меня вопрос как из проги на Delphi вывести в Excel знак диаметра(в базе он обозначен D=)

Код:

stroka:=FieldByName('NAZ_PRICE').AsString; 
while Pos('d=', stroka) > 0 do stroka[Pos('d=', stroka)]:=chr(216); // тут код диаметра 
Sheet.Cells[i,1].value:=stroka

Админ: Пользуемся тегами при оформлении кода!

chr(216) выводит букву Ш в Excel
помогите как ето обойти

[lmikle]

Версии Delphi и Excel какие? И описание переменной stroka?
Тут, походу, где-то путается Ansi и Unicode строки.
В Unicode код 216 (D8) действительно дает знак диаметра, а в Ansi - букву Ш (на "русском" шрифте).

[igr37]

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

Версии Delphi и Excel какие? И описание переменной stroka?
Тут, походу, где-то путается Ansi и Unicode строки.
В Unicode код 216 (D8) действительно дает знак диаметра, а в Ansi - букву Ш (на "русском" шрифте).

версия Delphi 5 - на сколько я читал все Delphi до 2009 не поддерживают Unicode и только с 2009 начали поддерживать
у меня проект большой и переходить нереально - что делать?

[igr37]

[/code]Админ: Пользуемся тегами при оформлении кода!

если можно поподробнее или хотя бы небольшой пример - плиз

[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;

[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 нет

[dr. F.I.N.]

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

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

К сожалению мне негде экспериментировать. А что мешает перекомпилировать проект под D5/6/7?

[igr37]

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

К сожалению мне негде экспериментировать. А что мешает перекомпилировать проект под D5/6/7?

очень большой нереально (работает сеть магазинов на нем)
вот решили сделать сайт-магазин и соотв экспорт данных из базы

[Admin]

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

Админ: Пользуемся тегами при оформлении кода!

если можно поподробнее или хотя бы небольшой пример - плиз

http://www.delphisources.ru/pages/forum_rules.html