|
#1
|
|||
|
|||
Delphi -> Excel
Здраствт))
я строю из дельфи экселевскую таблицу, вопрос! Как в ячейке написать "∆ƒ" InsertSymbol не помогает(( Последний раз редактировалось ViLkiN, 20.09.2007 в 11:50. |
#2
|
|||
|
|||
Я записываю информацию в определенную ячейку так:
Код:
Function SetRange(sheet:variant;range:string;value_:variant):boolean; begin SetRange:=true; try E.ActiveWorkbook.Sheets.Item[sheet].Range[range]:=value_; except SetRange:=false; end; End; //Ее использование: Код:
Procedure Form1.Button1.Click(Sender:TObject); begin SetRange(1,'A1','∆ƒ'); //где А1 - ячейка, в которую записываешь! end; |
#3
|
|||
|
|||
//Ее использование:
Код:
Procedure Form1.Button1.Click(Sender:TObject); begin SetRange(1,'A1','∆ƒ'); //где А1 - ячейка, в которую записываешь! end; в том то и дело, что дельфи не видит этого значка в коде (∆ƒ), вместо них ставит знак вопроса, пытаюсь сделать макрос в Excel- не фурычит, а Word макрос не работает, всмысле перевожу, что он пишет на язык дельфи, вставляю в код (он там типа номер этого символа пишет), но безрезультатно. Пользуюсь Delphi 7. Вопрос остаётся открытым..... |
#4
|
||||
|
||||
Думаю нужно использовать Unicode/Widestring или UTF-8 для шрифта и вообще для всей программы. Тогда все символы будут. Не знаю как с этим дружит делфи 7.
Например, в шрифте Tahoma дельты целых 2 две одна 394-й символ, вторая 2206-й PS не знаю почему M$ ещё во времена вин2к не перешли к UTF-8(как это сделано почти во всех популярных дистрибутивах линукса), как к кодировке по умолчанию везде, все подобные проблемы были бы решены автоматически. |
#5
|
|||
|
|||
Действительно.....даже как-то не задумался об этом...
В принципе можно создать текстовый файл в директории программы, записать в него этот символ(вручную), сохранить файл в Юникоде, а потом из программы открывать этот файл, считывать символ, а уж потом загонять ее в Эксель! перед тем как написать - проверял...Работает! |