index gorny czyli do X do potegi

0

index gorny czyli do X do potegi
jak wyswietlomc w memo x do potegi 2 w stylu (2^)
jezeli nie w memo to w czym?

0

richedit

0

a jak tam zrobic index gorny?

0

no ok mamy kod

procedure TForm1.btnIndexClick(Sender: TObject);
var
  CharFormat : TCharFormat;
begin
  ZeroMemory(@CharFormat, SizeOf(TCharFormat)); // zerowanie pamieci
  with CharFormat do
  begin
     cbSize := SizeOf(TCharFormat);  // przydziel pamiec
     RichEdit.Perform(EM_GETCHARFORMAT, 1, LParam(@CharFormat));
     yHeight:=Round(yHeight*0.7); // wysokosc
     yOffset:=Round(yHeight*0.3);   // polozenie

     RichEdit.Perform(EM_SETCHARFORMAT, wParam(SCF_SELECTION), LParam(@CharFormat));
  end;
  RichEdit.SetFocus;
  RichEdit.SelLength := 0;
end;

niemam pomyslu jak w jednym ciagu raz wyswietlan normalnie a raz z indexem
cos w tylu :form1.RichEdit1.Lines.Add('3343434 do potegi -3333') ;

1 użytkowników online, w tym zalogowanych: 0, gości: 1