Как отображать дроби в стандартном виде

[RamireZ]

Пробежался по поиску,но не нашел нужной темы,вото ВОПРОС:
Можно ли в delphi отобразить дроби в ,стандартном чтоли,виде(что б сверху был числитель,внизу знаменатель,между ними дробная черта и т.п)?Если такое уже было,просьба дать линк,тему потом удалить

[mihali4]

2/7
Горизонтальной черты нет ни на вашей клавиатуре, ни в используемых в Дельфи шрифтах.
Возможно использование специальных шрифтов, предназначенных для отображения математических формул, однако не факт, что они будут правильно отображаться в Дельфи.

[Kostia]

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

procedure f(n1,n2,x,y: integer);
var
  w,h: integer;
begin
  with form1 do
  begin
    w:=Canvas.TextWidth(inttostr(n1));
    h:=Canvas.TextHeight(inttostr(n1));
    Canvas.Brush.Style:=bsClear;
    Canvas.TextOut(x,y,inttostr(n1));
    Canvas.MoveTo(x,y+h);
    Canvas.LineTo(x+w,y+h);
    Canvas.TextOut(x,y+h,inttostr(n2));
  end;
end;

[Alter]

для верхнего числа достаточно поменять шрифт канвы на подчёркнутый, а под ним сдвинуть вниз второе число, выравнивая по центру самого длинного числа.

[Гриха]

а что не канает что то вроде:
WriteLn ... a,'/',b ...
а цыфры через div сделать...???