[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
помогите как ето обойти