Ищу функцию, чтобы рисовать на картинке формулы с дробью

← →
Sergey (2009-07-28 21:14) [0]

То есть, чтобы 1/2 было не так нарисовано, а вот так:

1
-
2

ну и более сложные многоэтажные дроби. Существуют такие функции или только самому писать?

← →
Amoeba © (2009-07-28 21:36) [1]

> Существуют такие функции или только самому писать?

Не теряй времени на поиск того, чего не существует. Придется писать самому.

← →
Sergey (2009-07-28 21:46) [2]

> Amoeba © (28.07.09 21:36) [1]
> > Существуют такие функции или только самому писать?
> Не теряй времени на поиск того, чего не существует. Придется
> писать самому.

Вроде бы вещь настолько элементарная. Даже на некоторых форумах есть такая примочка, чтобы представлять формулы в виде картинок с нормальными дробями.

Может быть всё-таки существует? ;)

← →
KilkennyCat © (2009-07-29 00:00) [3]

Существует. Апи математических пакетов. Заумно и тяжеловесно и насчет бесплатности не уверен совершенно. Более не знаю, мельком видел, но не работал.

← →
Amoeba © (2009-07-29 01:54) [4]

Может это устроит?
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=718

← →
Sergey (2009-07-29 22:47) [5]

> Amoeba © (29.07.09 01:54) [4]
>
> Может это устроит?
> http://www.delphikingdom.com/asp/viewitem.asp?catalogid=718

Благодарю вас! :)

Скажите, вот такой код который там используется безопасен?

for i := 0 to High(Arts[Index].Samples) do begin Expr := TExprVar.Create("Пример " +IntToStr(i+1) +": "); Expr.Color := clBlue; Expr.AddNext(TExprSimple.Create(Arts[Index].Samples[i])); Expr.AddNext(TExprVar.Create(" Результат: ")); Expr.Next.Next.Color := clBlue; Expr.AddNext(Builder.BuildExpr(Arts[Index].Samples[i])); Expr := TExprChain.Create(Expr); Expr.Canvas := Image1.Picture.Bitmap.Canvas; Expr.Font.Size := 11; Expr.Draw(5, DY, ehLeft, evTop); Inc(DY, Expr.Height +5); if MX < Expr.Width then MX := Expr.Width; Expr.Free end;

А то, Create много, а Free - только одно.

Просто, попробовал использовать, у меня почему-то компьютер зависает. Причём намертво, так, что только Reset помогает. Вот размышляю, почему.

← →
KilkennyCat © (2009-07-29 23:54) [6]

> Free - только одно

но оно может уничтожать многое.
меня не
это смущает, меня смущает

> Expr := TExprChain.Create(Expr);

также смущает

> Expr := TExprVar.Create
> ................
> Expr := TExprChain.Create

так это же Chain. "связанные одной цепью"

Ищу функцию, чтобы рисовать на картинке формулы с дробью Найти похожие ветки