[ViLkiN]

Здраствт))
я строю из дельфи экселевскую таблицу, вопрос!
Как в ячейке написать "∆ƒ"
InsertSymbol не помогает((

[~ SaM ~]

Я записываю информацию в определенную ячейку так:

Код:

1 2 3 4 5 6 7 8 9

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;

//Ее использование:

Код:

1 2 3 4

Procedure Form1.Button1.Click(Sender:TObject); begin SetRange(1,'A1','∆ƒ');  //где А1 - ячейка, в которую записываешь! end;

[ViLkiN]

//Ее использование:

Код:

1 2 3 4

Procedure Form1.Button1.Click(Sender:TObject); begin SetRange(1,'A1','∆ƒ');  //где А1 - ячейка, в которую записываешь! end;

[/quote]

в том то и дело, что дельфи не видит этого значка в коде (∆ƒ), вместо них ставит знак вопроса, пытаюсь сделать макрос в Excel- не фурычит, а Word макрос не работает, всмысле перевожу, что он пишет на язык дельфи, вставляю в код (он там типа номер этого символа пишет), но безрезультатно.
Пользуюсь Delphi 7.
Вопрос остаётся открытым.....

[Keygenmusic]

Думаю нужно использовать Unicode/Widestring или UTF-8 для шрифта и вообще для всей программы. Тогда все символы будут. Не знаю как с этим дружит делфи 7.
Например, в шрифте Tahoma дельты целых 2 две одна 394-й символ, вторая 2206-й
PS не знаю почему M$ ещё во времена вин2к не перешли к UTF-8(как это сделано почти во всех популярных дистрибутивах линукса), как к кодировке по умолчанию везде, все подобные проблемы были бы решены автоматически.

[~ SaM ~]

Действительно.....даже как-то не задумался об этом...
В принципе можно создать текстовый файл в директории программы, записать в него этот символ(вручную), сохранить файл в Юникоде, а потом из программы открывать этот файл, считывать символ, а уж потом загонять ее в Эксель! перед тем как написать - проверял...Работает!