Как в ворде из делфи поставить степень

[Skynet_07]

Здравствуйте. Есть необходимость нарисовать таблицу и заполнить ее числами. Проблема в заголовках таблицы. Нужно поставить единицу измерения метры кубические. Как в определенной ячейке таблицы писать степени и если можно, то подскажите еще с индексами. Спасибо.

[Smitt&Wesson]

Нажимаем справа треугольничек с чёрточкой. Выбираем форматирование. Устанавливаем галки на надстрочный и подстрочный символы.

[Skynet_07]

Спасибо, конечно. Но как это сделать из кода?

[Serge_Bliznykov]

что-то вроде:

xxxxxx.Font.Superscript := True

[kutani]

Как в определенной ячейке таблицы писать степени и если можно, то подскажите еще с индексами

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
 for i:=0 to sg.ColCount-1 do begin
  if i = 3 then sg.Cells[i, 0]:= '59e2' // надстрочный
   else if i = 4 then sg.Cells[i, 0]:= '7777h3' // подстрочный
    else sg.Cells[i, 0]:= inttostr(i);
 end;
end;

procedure TForm1.sgDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Sg : TStringGrid;
  Col, Row, flag, i, k: Integer;
  s, baza, mantis: string;
begin
 Sg:= Sender as TStringGrid;
 Flag:= Integer(Sg.Rows[ARow].Objects[ACol]);

  with Sg.Canvas do begin
    if arow<>0 then
     Brush.Color:= clwhite;

    FillRect(Rect);
    Font.Size:= 7;
    font.Color:= 0;

    s:= Sg.Cells[ACol, ARow];
    i:= pos('e',s);
    k:= pos('h',s);
    if i>0 then begin
     baza:= copy(s, 1, i-1);
     mantis:= copy(s, i+1, length(s));
     TextOut(Rect.Left + 2, rect.Bottom - TextHeight('1')-2, baza);
     Font.Size:= 6;
     TextOut(Rect.Left + 5 + TextWidth(baza), rect.Top, mantis);
    end else if k>0 then begin
     baza:= copy(s, 1, k-1);
     mantis:= copy(s, k+1, length(s));
     TextOut(Rect.Left + 2, rect.Bottom - TextHeight('1')-2, baza);
     Font.Size:= 6;
     TextOut(Rect.Left + 5 + TextWidth(baza), rect.Bottom - TextHeight('1'), mantis);
    end else TextOut(Rect.Left + 2, rect.Bottom - TextHeight('1')-2, s);

  end;
end;

[Serge_Bliznykov]

kutani, т.е. Вас совсем не смутило, что таблица находится в MS Word ?

[ISBN]

этот вопрос мне тоже интересно,

[come-on]

в офисных прогах есть МОШНОЕ средство - запись макроса
потом умный копи-паст