DelvishDamned, вариантов несколько:
1. Перейти на Delphi 2009;
2. Установить и использовать TNT Unicode Controls;
3. Если задачка разовая, то можно поработать напрямую с MS RichEdit Control'ом, например так:
| Код |
type
TSetTextEx = packed record
flags : DWORD; // Flags (see the ST_XXX defines)
codepage : DWORD; // Code page for translation (CP_ACP for sys default, 1200 for Unicode, -1 for control default)
end;
const
EM_SETTEXTEX = (WM_USER + 97);
procedure TForm1.FormCreate(Sender: TObject);
var
s : WideString;
ste : TSetTextEx;
begin
ste.codepage := 1200; //Unicode
s := WideFormat( #$03A3'=%d', [12345] ); //$03A3 - код символа Σ
SendMessage( RichEdit1.Handle, EM_SETTEXTEX, Integer(@ste), Integer(@s[1]) );
end;
|
|
и еще: возможно ли писать в нижнем и верхнем индексах таким способом?
Вместо сигмы пишет J