Цитата или краткий комментарий:

• Страница предназначена для обсуждения материала, его содержания, полезности, соответствия действительности и так далее. Смысл не в разборке, а в приближении к истине :о) и пользе для всех.
• Любые другие сообщения или вопросы, а так же личные эмоции в адрес авторов и полемика, не относящаяся к теме обсуждаемого материала, будут удаляться без предупреждения авторов, дабы не мешать жителям нормально общаться.
  
• При голосовании учитывайте уровень, на который расчитан материал. "Интересность и полезность" имеет смысл оценивать относительно того, кому именно предназначался материал.
• Размер одного сообщений не должен превышать 5К. Если Вам нужно сказать больше, сделайте это за два раза. Или, что в данной ситуации правильнее, напишите свою статью.

Отслеживать это обсуждение

сообщение от автора материала У меня есть два больших уравнения, написанных при помощи ExprDraw. как теперь их объединить в систему? функция System же только строки принимает? А вы посмотрите, как реализована функция System, и сделайте аналогично. Сначала надо с помощью AddNext к первому выражению присоединить второе, затем создать экземпляр TExprStand, передав ему ссылку на первое выражение, а потом создать экземпляр TExprBracketed с одной фигурной скобкой слева и передать в него получившийся экземпляр TExprStand.  Антон Григорьев

сообщение от автора материала ExprDraw предназначен умеет только одно: отрисовывать нужную формулу там, где укажут. И ещё вычислять её размеры. Интегрирование этой формулы в Memo, в текст, в картинку - это отдельная задача, которую нужно решать самостоятельно тем способом, который наилучшим образом подходит именно для вашей задачи. Свой вариант решения этой задачи я вам, уж извините, не дам - слишком сложно выдирать этот код из проекта, а отдавать просто так весь такой большой проект не хочется. Но задачка-то элементарная, если немного подумать, сделать очень просто, тем более что при тех объёмах памяти, которые стоят на современных машинах, её можно решить намного изящнее, чем это сделал я десять с лишним лет назад.  Антон Григорьев

сообщение от автора материала Интересно почему вы выбрали именно Delphi 5 в качестве среды разработки? Потому что когда я эту штуку писал, пятёрка была самой последней версией :)  Антон Григорьев

сообщение от автора материала Когда-то я решал подобную задачу. Я внедрял формулы в текст. По сути, объединил ExprDraw и вот это: http://delphikingdom.com/asp/viewitem.asp?catalogid=171 На мой взгляд, этот подход лучше, потому что ширина не фиксирована, а выравнивание выполняется достаточно красиво. Если вам интересно, как это в итоге выглядит, можете скачать интерактивный учебник PlasmaBook со страницы http://plasma.mephi.ru/ru/%D0%9E%D0%B1%D1%83%D1%87%D0%B5%D0%BD%D0%B8%D0%B5  Антон Григорьев

сообщение от автора материала А можно еще вопрос - переход на новую строку внутри одной формулы концептуально не заложен или есть какой-то управляющий символ? Есть функции StandL, StandC и StandR для этих целей.  Антон Григорьев

сообщение от автора материала но если вместо латиницы использовать кириллицу "Дробь & space(5) & 90/25", выводится только первая буква Д. Хотелось бы понять - так и должно быть или я что-то делаю неправильно? Видимо, всё дело в этом: Скомпилировалась под Delphi XE без проблем. Потому что под семёркой всё работает как надо. Предполагаю, что дело в переходе на двухбайтный Char. Надо весь код анализатора прошерстить и посмотреть, где там могут быть проблемы. Скорее всего, какие-нибудь глюки с конструкциями вида if S[1] in ['A'..'Z','a'..'z','А'..'я'] - двухбайтные множества Delphi обрабатывает не всегда корректно.  Антон Григорьев

>>> И вот здесь я категорически не согласен с уважаемым GEO Я был неверно понят (или я неверно высказался). Я имел в виду, что не стоит для всего проекта отключать какой-то хинт или варнинг (ну, за исключением некоторых). А гасить каждый конкретный хинт в каждом месте его появления — наверное, это будет неплохо.  Geo

>>> а как же тогда прорисовать формулу, если не через Canvas?? Через Canvas, через Canvas. Вопрос только в том, через Canvas чего? Читайте внимательно, что написал Антон. Есть Image1.Canvas, а есть Image1.Picture.Bitmap.Canvas Или Вам все равно на какой канве рисовать? Мржет быть, Вам также все равно, в какой карман деньги класть? Тогда кладите в мой :D  Geo

сообщение от автора материала скажите правильно это будет, для начала хотя бы А вас самого не смущает, что закрашиваете вы Image1.Picture.Bitmap.Canvas, а формулу потом рисуете на Image1.Canvas? В вашем случае всё, может быть, и работает, но вообще сам факт появления у TImage публичного свойства Canvas - это, видимо, ошибка разработчиков VCL, постарайтесь его никогда не использовать. Можете интереса ради покопаться на Круглом столе, посмотреть, сколько проблем получают люди, которые используют TImage.Canvas. А в остальном явных ошибок нет, хотя целесообрзность именно такого кода у меня вызывает сомнения. Если вы пока просто экспериментируете, пробуете библиотеку на зуб, то это нормально, а вот если это часть более серьёзной программы, то, возможно, имеет смысл подойти к рисованию по-другому. Как именно - зависит от ваших целей. Если вы их здесь изложите, попробуем что-то подсказать.  Антон Григорьев

>>> FAQ на англ. языке, я язык не знаю, ток 2-3 слова Ну, тогда или учите английский, или ищите документацию на русском. Как Вы можете разрабатывать программы, если Вы не владеете инструментом разработки и не имеете возможности (желания?) этот инструмент изучать? Поясняю: умение запустить Delphi и разместить на форме компоненты НЕ эквивалентно владению инструментом. P.S. В методах класса TCanvas нет ничего сложного. Но описание все же надо каким-то образом прочитать.  Geo

>>> найди среди них Transparent А я бы даже не стал возиться с Transparent, а просто залил бы предварительно Bitmap нужным мне цветом, а потом бы уже выводил. Результат получится лучше, если при выводе есть антиалиасинг. Если делать через Transparent, то у элементов будет светлая каемочка.  Geo

сообщение от автора материала а по подробнее можно, как это сделать...я ток новичок в дельфи А куда ж ещё подробнее? Пример того, как рисовать формулы на канве, у вас есть, переделать его под свою канву - задача для самых начинающих. Нажать F1, посмотреть свойства TBitmap, найди среди них Transparent и прочитать всё, что с ним связано - это тоже вполне по силам любому новичку.  Антон Григорьев

сообщение от автора материала почему виден белый квадрат(размер соответствующий image в котором отображается формула) на другом фоне, можно ли его убрать?? А вы не копируйте из примера бездумно. Сам ExprDraw никаких квадратов не рисует, но работает медленно. Для ускорения перерисовки формула выводится не на экран, а на растр, который потом быстро выводится на экран каждый раз, когда экран нуждается в перерисовке. В зависимости от того, что вам нужно, вы можете либо вообще отказаться от промежуточного растра и рисовать формулу прямо на нужной канве, либо включить для этого растра режим прозрачности.  Антон Григорьев

сообщение от автора материала как можно узнать размер формулы в пикселях? Странный вопрос. Вы не заметили, что у TExprClass есть свойства Width и Height?  Антон Григорьев

>>> Если собирать весь проект и в нем пару тысяч warning'ов - очень легко не заметить ошибку. Зависит от квалификации сборщика. >>> Просто можно погасить конкретный warning соответствующей директивой компилятора. Вообще-то плохой способ. И лучше его не использовать. Либо использовать очень и очень аккуратно. Та же аналогия с дорогой и светфором. Вы предлагаете вообще не смотреть на сфетофор. А это плохо.  Geo

>>> Я полагал, что автору было бы интересно получить чистый код, на который компилятор не ругается. Хм... Знаете, в общении человека с компьютером, последнее слово принято оставлять за человеком. Формальные правила, принятые в организациях, предназначены для уменьшения вероятности возникновения ошибок. И обусловлено это разным уровнем подготовки программистов. Если программист один или есть небольшой коллектив разработчиков с высоким уровнем подготовки и ответственности, то эти правила не нужны. Аналогия. Навряд ли взрослый сознательный человек будет стоять перед совершенно пустой дорогой в ожидании зеленого сигнала светофора. А вот детей обычно в такой ситуации заставляют зеленого сигнала дожидаться. Именно потому, что у детей еще не выработан в должной степени механизм оценки ситуации. Если Антон говорит, что он рассмотрел все варнинги и хинты, значит, это джействительно так. Если он принял решение не устранять их, значит он отвечает за то, что эти варнинги и хинты не приведут к ошибкам в работе кода. Соответственно, ему совершенно нет смысла дописывать лишний код только для того, чтобы успокоить компилятор. Особенно, если учесть, что Антон -- минималист по стилю программирования ;-) И даже если подойти к вопросу формально, то компилятор вовсе не ругается. Если перевести на русский, то получится примерно так: -- Э, мужик! У тебя тут такая конструкция, что переменная может оказаться не инициализированной. Может поправишь? -- На фиг! При выполненнии кода мы никак не сможем миновать либо этот, либо этот участок кода, где и произойдет инициализация. Забей! Меня, кстати, уже замучила мелочная опека Excel'а, который регулярно сообщает мне, что есть число, которое я почему-то интерпретирую как строку. Задолбал! Ну, нне винеовать я в том, что работаю с текстовыми строками, состоящими исключительно из цифр. И не отключается же, зараза! >>> Придется удалить вашу библиотеку из проекта, что жаль. Если подходить формально, то это Вам жаль. Так что это Ваши проблемы.  Geo

Хм... Это требование начальства? Требование то нормальное, но вот предъявляется оно явно за пределы их (начальства) влияния :-D. Неужели они считают, что вправе предъявлять требования к разработчику сторонних модулей, чью работу бесплатно используют в своих коммерческих целях.  Ins

>>> Используем ваши модули, но у нас дисциплина разработки, чтобы по все хинты и предупреждения были ликвидированы. Хм... Это требование начальства? У Вас есть два выхода. Первый -- простой: скомпилировать втихаря и сказать начальству, что библиотека посталяется без исходных кодов. Второй -- сложнее: пройтись по всем хинтам и добиться их устронения, дописав очевидные куски текста, без которых легко можно обойтись.  Geo

сообщение от автора материала Все жти предупреждения я знаю и каждое из них проверил. Предупреждения вида Variable 'N' might not have been initialized возникают в следующих случаях: if <условие> then begin   ...   N := ...;   ... end; // Ещё код, который должен выполняться всегда if <то же самое условие> then begin   // Здесь используется N end; За пределами блоков if переменная N не используется, а то, что условие в первом и втором блоках if одинаковое и, следовательно, переменная обязательно будет инициализирована, компилятор замечать не умеет, поэтому и предупреждает. Присваивание переменной N фиктивного значения вне блока if я считаю пустой тратой процессорного времени. Предупреждения вида Value assigned to 'R' never used - последствия использования процедуры Val. У неё два выходных параметра. По алгориму во многих случаях меня интересует только один из них. Но компилятор не даёт возможности вызывать эту процедуру, не передавая ничего в качестве ненужного мне выходного параметра. А потом ругается, что я его не использую. Фиктивное использование, лишь бы компилятор не ругался, я тоже считаю неэффективным расходванием ресурсов. Предупреждения типа Return value of function 'TExprCap.CapWidth' might be undefined меня самого сильно достают. У этой функции есть параметр перечислимого типа. Внутри функции - case, в котором я честно перечисляю все возможные значения этого типа. Тем не менее, компилятор считает, что этот case можно как-то обойти. Глупый он, этот компилятор. Предупреждения типа Combining signed and unsigned types - widened both operands - это смешения Cardinal и Integer. В некоторых случаях мне нужны переменные, которые могут принимать отрицательные значения, но их приходится сравнивать со значениями, которые система считает неотрицательными. Скорее всего, дело в версии Delphi - старые версии часто путали Integer и Cardinal при импорте системных функций, и то, что нормально компилировалось в старых версиях, стало компилироваться с предупреждениями в новых. Что же касается "Не могли бы вы доработать модуль так, чтобы их не было?", то я в тексте статьи написал, как я отношусь к подобным вопросам.  Антон Григорьев

сообщение от автора материала Проблема (кк мне кажется) в разделителе ",", стоящем в параметраз ОС. ExprMake действительно допускает использование в качестве разделителя целой и дробной части только точки, потому что запятая используется в других целях - как разделитель аргументов функции, например. Чтобы функция FloatFormat независимо от настроек системы выдавала число с точкой, используйте её перегруженную версию с параметром FormatSettings, в котором будет установлен нужный DecimalSeparator.  Антон Григорьев

сообщение от автора материала Можно ли мне как-нибудь использовать эти модули в .NET Только после серьёзной переделки. Всю графическую часть придётся подвергнуть ревизии, потому что там активно используется GDI, а в .NET нет GDI, только GDI+.  Антон Григорьев

Ссылка на архив поправлена. Проверено: архив не битый.  Александр Малыгин

сообщение от автора материала Кузнецову Алексею: Вернусь к вопросу о функции exp. Её я не ввёл по следующей причине: в формулах в разных случаях пишут либо e^x, либо exp(x). Если ввести в ExprMake функцию Exp, которая будет превращать выражение в e^x, то exp(x) написать уже не получится. А сейчас у человека есть выбор.  Антон Григорьев

сообщение от автора материала Алексею Кузнецову: >>> Как насчет добавть в библиотеку, точнее в разборщик выражений (для большей совместимости с Borland Object Pascal-ем), следущие функции: Power(e1, e2) и Exp(e1), ведь поддержка ф-ии Abs реализована... Да я и Abs и Sqr больше по инреции добавил, не нужны они там по большому счёту. А если это нужно лично вам, то добавить-то нетрудно. >>> И еще один вопрос, а где автор (с какой целью) применяет свою библиотеку (мне просто интересно). Я аспирант МИФИ, сейчас разрабатываю движок для создания электронных учебных пособий. Так как ориентировано это всё на физику (прежде всего, физику плазмы - мою специальность), формул там предостаточно. Для всех, у кого Windows 98/ME: я нашёл причину ошибок, возникающих в этих ОС. Они связаны с неполной поддержкой Unicode в них. Почему не возникает проблем на моей машине с Windows 95 OSR 2.1, я так и не понял. Возможно, установлены дополнительные компоненты, реализующие эту поддержку. В любом случае, в ближайшем будущем появится обновлённая версия модулей, совместимая с Windows 98/ME, которая с разрешения Королевы будет выложена здесь.  Антон Григорьев

сообщение от автора материала Для creo: не вы первый мне об этом сообщаете. Про 98 и про ME. Вот только никто не хочет мне точно сказать, в каком месте и какая ошибка возникает. А у меня самого нет машины с 98-ым, на которой я мог бы это проверить. Будет точная информация - будет исправление.  Антон Григорьев

сообщение от автора материала Кузнецову Алексею: для числовых индексов не обязательно использовать "_", ваше выражение можно написать ещё короче: "f=x1*z1". А умножение без знака модули не понимают потому, что иначе получается неопределённость в трактовании некоторых выражений. Например, tg(x) - это то ли тангенс x, то ли t, умноженное на g(x). Человек, конечно, в такой записи разберётся, а вот научить этому компьютер - задача хоть и выполнимая, но непростая. Редактор типа MS Equation сделать вполне реально, хотя понадобится долго "вылизывать" код. Не уверен, правда, что это будет работать быстро - ExprDraw с точки зрения скорости далёк от идеала. Но передо мной такая задача не стоит, а свободного времени для написания такого редактора просто так мне явно не хватает, так что в ближайшем будущем я заниматься им не буду.  Антон Григорьев

сообщение от автора материала Пирогову А.В.: потому что я писал этот модуль для себя, а с Tex"ом и т.д. мне работать не приходилось, я не знаю, какой там язык используется. И мне легче было придумать свой, чем искать документацию по чужому и разбираться с ней.  Антон Григорьев

Добавьте свое cообщение

Вашe имя:  [Войти] Ваш адрес (e-mail): На Королевстве все адреса защищаются от спам-роботов контрольный вопрос: Однажды, в студеную зимнюю пору я из лесу вышел, был сильный ЧТО? в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале. Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте. Оценка содержания Содержит полезные и(или) интересные сведения Ничего особенно нового и интересного Написано неверно (обязательно укажите почему) Оценка стиля изложения Все понятно, материал читается легко Есть неясности в изложении Непонятно написано, трудно читается Текст:                        вопрос Круглого стола № XXX вопрос № YYY в тесте № XXX Рыцарской Квинтаны сообщение № YYY в теме № XXX Базарной площади обсуждение темы № YYY Базарной площади     Правила оформления сообщений на Королевстве