Вывод на экран символов дельта и сигма (Delphi)

[Alfik]

Подскажите как в Memo вывести символы дельта и сигма, если нельзя, тов какой компонент их можно вывести? Вставлять рисунками нельзя, в дальнейшем нужно сохранить всю инфу в текстовик.

[KingOfNothing]

а что собственно не получается? в Delphi 2009 есть поддержка юникода, там всё ок. Если седьмая, то там отображается ?, так как юникод не поддерживается. Нужны либо компоненты с поддержкой юникода в седьмой, либо обновить делфи

[Alfik]

Конечно большое спасибо, но встречный вопрос, какие компоненты в седьмой поддерживают юникод?

[MalCer]

Memo, StringGrid, ListBox и т.д. поддерживают юникод, кроме спец символов(многие символы отображаются в виде квадратиков.Так отображаются символы, не имеющие визуального отображения. Т.е. символ, например, с кодом 13 существует, но он невидим!!!). Код дельта и сигмы не смотрел, а вот для "@" можно вывести в Memo :

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.lines.Add(#64)
end;

[KingOfNothing]

Alfik, компонентов не знаю, честно говоря.

MalCer, найди пожалуйста код сигмы или дельты. Спасибо!

[AlexanderKs]

Если нужно отобразить только символы сигма и дельта, поставь для Memo шрифт Symbol. Тогда для вставки дельта нужно написать строчку. Lk Memo1.Lines.Add(#68); а для вставки сигма - Memo1.Lines.Add(#115);

[AlexanderKs]

Если кроме математических символов необходимо отобразить нормальный текст (и сохранить в файл без потери форматирования), используй RichEdit.

[MalCer]

MalCer, найди пожалуйста код сигмы или дельты

Зачем мне находить, если ты сам можешь посмотреть. Таблица символов находится здесь: Пуск - Программы - Стандартные - Служебные - Таблица символов

[MalCer]

А лучше всего самому сделать эту таблицу. Я её делал так:
Добавляем компонент TStringGrid.ColCount ставим равным 2,FixedCols = 0. Всё! Теперь пишем код:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  StringGrid1.RowCount:=257;
  StringGrid1.Cells[0,0]:='Код';
  StringGrid1.Cells[1,0]:='Символ';
  for i := 0 to 255 do
  begin
    StringGrid1.Cells[0,i+1]:=IntToStr(i);
    StringGrid1.Cells[1,i+1]:=Chr(i);
  end;
end;

[AntiSF]

Вообще то, если вести речь про "уникод", то как то так:

const nROWS = 256; nCOLS = 256;

procedure TForm1.FormCreate(Sender: TObject);
var i,j: integer;
begin
  with Self.StringGrid1 do begin
    ColCount:= nCOLS+1;
    RowCount:= nROWS+1;
    Cells[0,0]:= 'Код';
    for i:= 0 to nROWS-1 do Cells[0,i+1]:= IntToStr(i);
    for j:= 0 to nCOLS-1 do begin
      Cells[j+1,0]:= IntToStr(j*nROWS) + '+';
      for i:= 0 to nROWS-1 do Cells[j+1,i+1]:= WideChar(j*nROWS+i);
    end;
  end; 
end;

Но "стринггрид" "делфи 7", при этом, наглядно демонстрирует свое недержание "уникода"...

З.Ы. хотя может он и держит,.. тяжело найти шрифт с 65к символов