Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200509 Sat, 08 Sep 2012 02:44:43 +0000 Ошибка при выполнении FloatToStr https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200509 Sandy
http://www.delphibasics.ru/FormatFloat.php]]> Filka Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200507 Sat, 08 Sep 2012 02:15:50 +0000 Ошибка при выполнении FloatToStr https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200507 Цитата Lumen @
Я обычно FormatFloat использую для преобразования числа с плавающей точкой в строку.

Хм... А на что можно использовать необычно? Это не сарказм, вопрос в целях повышения повышаемости.
Цитата Lumen @
    s:=FormatFloat('0.00', q);

Кажись наоборот, формат указывается после переменной.]]> Sandy Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200422 Fri, 07 Sep 2012 16:23:30 +0000 Ошибка при выполнении FloatToStr https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200422 Dimonka
это об?
    asm
      emms
    end;

так обычно сама библиотека и следит]]> antonn Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200380 Fri, 07 Sep 2012 13:50:27 +0000 Ошибка при выполнении FloatToStr https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200380 Dimonka Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200232 Fri, 07 Sep 2012 10:52:51 +0000 Ошибка при выполнении FloatToStr https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200232 Типа такого:
    s:=FormatFloat('0.00', q);
]]> Lumen Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200124 Fri, 07 Sep 2012 08:32:04 +0000 Ошибка при выполнении FloatToStr https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200124 Цитата leo @
Копаться в FloatToStr бесполезно,

Да, так и получилось.

После прочтения одной статьи вставил Set8087CW(Get8087CW or $0100). На несколько проходов хватало. После чего опять появлялась ошибка.
Цитата MBo @
Не исключено, что ошибка случилась раньше, и в стеке сопроцессора мусор.

Точно. В куске кода, выдранном из старой программы, обнаружилась пара инструкций IF, использующих две объявленных, но не инициализированных переменных.

Всем спасибо!]]> Sandy Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200102 Fri, 07 Sep 2012 08:00:12 +0000 Ошибка при выполнении FloatToStr https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200102 Но специфика fpu-операций x86 такова, что исключения генерятся не на самой инструкции, вызвавшей исключение, а на следующей за ней команде fpu. Поэтому во всех встроенных дельфийских функциях для работы с вещ.числами всегда вставляется пустая fpu-команда fwait, чтобы ошибка генерилась внутри самой функции, а не где-то после ее вызова. Поэтому возможные invalid operation, связанные с неверными аргументами Sqrt, Ln и т.п. должны возникать на самом вызове этих функций. Но когда ты, например, просто делишь два числа x/y, то может возникнуть ошибка деления 0/0, которая проявится не сразу, а на какой-то другой последующей операции с fpu (в твоем случае на вызове FloatToStr, хотя дело вовсе не вней). Подобный случай тут недавно обсуждался]]> leo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200088 Fri, 07 Sep 2012 07:36:01 +0000 Ошибка при выполнении FloatToStr https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200088 FloatToStr -> SetString -> FloatToText -> FloatToDecimal
Вот на FloatToDecimal и запинается. С asm'ом у меня не очень, поэтому просто тупо посмотрел на содержимое регистров CPU.
Цитата MBo @
И стоит проверить перед операцией Get8087CW

Спасибо, почитаю хелп только.]]> Sandy Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200047 Fri, 07 Sep 2012 05:52:53 +0000 Ошибка при выполнении FloatToStr https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200047 leo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200024 Fri, 07 Sep 2012 04:44:02 +0000 Ошибка при выполнении FloatToStr https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200024 MBo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200020 Fri, 07 Sep 2012 03:42:40 +0000 Ошибка при выполнении FloatToStr https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200020 Цитата RusSun @
попробуй помеять точку на запятую ?

Попробовал DecimalSeparator:=',' (и с точкой тоже) - не помогло.]]> Sandy Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200017 Fri, 07 Sep 2012 02:54:25 +0000 Ошибка при выполнении FloatToStr https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200017
    procedure TForm1.Button1Click(Sender: TObject);
    var q:extended; s:string;
    begin
    q:=0.0275;
    s:=FloatToStr(q);
    Edit1.text:=s;
    end;


попробуй помеять точку на запятую ?

Добавлено
у меня правда и этот вариант работает)]]> RusSun Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200016 Fri, 07 Sep 2012 02:32:29 +0000 Ошибка при выполнении FloatToStr https://forum.sources.ru/index.php?showtopic=363853&view=findpost&p=3200016 Sandy Delphi: Общие вопросы