FreePascal.ru

Сервис - Параметры... - Отладчик Исключения языка

SSerge писал(а):FPC 3.1.1

Точно. Спасибо!

Есть код, который выдает ошибку:
var
E: Extended;
A, C: Currency;
begin
E := 0.41;
C := 0.41;
A := 0;
A := A + C;
CheckEquals(0.41, A, 'Currency');
A := 0;
A := A + E;
CheckEquals(0.41, A, 'Extended');
end;

При прибавлении к Currency ...

Просто открыть соединение. При открытии соединения, проверяется есть ли файл, и создается новый, если он отсутствует или используется существующий.

https://bitbucket.org/hovadur/scanner - кроссплатформенный интерфейс SANE под Linux, WIA под Windows. Надо бы еще добавить Twain, но у меня нет для тестирования ни одного Twain-сканера.

я добавил в папку languages вместе со своим <project>.ru.po также и lclstrconsts.ru.po.

FNetSrv инициализируется, а FNet нет.

см. https://bitbucket.org/hovadur/diskinfo чтобы узнать серийный код винчестера

vada писал(а):А я нашел для себя MTProcs

Спасибо большое!

ага, т.е. и стандартная SimpleRoundTo() (из Math) тоже упадёт.?!
Черт, извини. Упадет, если поставить SetRoundMode(rmDown). Если убрать, то твоя функция упадет все так же на значении -2.24 (я проводил эксперименты с SetRoundMode).
В первом посте не хватает строчки: "а ожидаемый результат такой ...

скалогрыз писал(а):а если так:

Если выполнить тест TestRound, предложенный мною выше, то он упадет на значении 445.19.

В fpc есть функция округления "как в Excel": SimpleRoundTo:

function SimpleRoundTo(const AValue&#58; Extended; const Digits&#58; TRoundToRange = -2)&#58; Extended;
var
RV &#58; Extended;
begin
RV &#58;= IntPower(10, -Digits);
if AValue < 0 then
Result &#58;= Trunc((AValue*RV) - 0&#46;5)/RV ...

Помогите с кодировкой.

uses
LConvEncoding;

function TForm1&#46;OnTranslate(Dbf&#58; TDbf; Src, Dest&#58; PChar; ToOem&#58; Boolean)&#58; Integer;
var
S, Encoding&#58; String;
begin
if (Dbf&#46;CodePage = 1251) and (Dbf&#46;LanguageID = 201) then
Encoding &#58;= 'cp1251'
else
Encoding &#58 ...

Запустил из под лазаря и делфи хе5.
Я запустил на 32-битной машине из под 32-бит лазаря и 32-бит делфи хе2. Результаты:
а) заполнение массива строками с вызовом IntToStr(i):
- delphi - 2859 мс;
- lazarus - 2421 мс;
б) холостой проход по циклу через for:
- delphi - 16 мс;
- lazarus - 16 мс;
в ...