FreePascal.ru

В общем выяснили: баг в арифметику - заложили производители процессоров и разработчики FPC - не виноваты . Дальше флуд можно не продолжать.
Никто никуда никакого бага не вносил, это естественная потеря точности при переводе из одной системы счисления (десятичной) в другую (двоичную) и наоборот ...

Перечисленные примеры не подходят для предложенной простейшей программы. Покажите пример батника.

Следующая программа тоже возвращает 0?

Пример батника можно увидеть?

ИК датчик охранной сигнализации с контактами реле внутри. Берём USB мышь и подпаиваем выход датчика параллельно одной из кнопок.

К тому же, integer это не встроенный тип, а значит может быть переопределен в любой момент.
Что помешает чешущимся рукам переопределить LongInt?

type
myReal = Real;
Real = LongInt;
LongInt = myReal;

var
r: real;
i: LongInt;

Когда руки чешутся надо противозудными средствами ...

SAK, потому что отсчет идет с нуля... это общеизвестный факт.
А если глаза протереть?
Buf: Array [1..32767] Of Byte;
setlength(Buf,32767);
aArrStatic: Array [1..32767] of Word;
GetMem(pBuf, 32767);
И ни одного объявления с длиной буфера 32768.

Тут еще надо знать счетчик массива знаковый ...

И ещё почему 32767, а не 32768? 32 кБ это 32768 байт. объявление будет: array[0..32767] of byte или array[1..32768] of byte.

Допустим: Пи теперь не 3.14
Вы хотите сказать, что у Вас есть такая окружность у которой отношение длины к диаметру не равно 3,14...? Это число не является заданным какими-либо соглашениями, поэтому и изменить его Вы не можете.
"е" равно "м" "с квадрат" Вообще-то, насколько я понимаю, имелось ...

Вот это вот делает весьма сомнительным способ сохранения например Record'ов или массивов операторами типа BlockWrite.
На этот случай есть слово "packed".

А зачем?
Так я тоже не знаю зачем, но Ваши же слова:
bormant, можно даже хуже (так как integer это переопределяемый тип)

type Integer ...

Например, при определении типа (класса), даже какого то пресловутого массива. Плюс, даже неинициализированные переменные требуют места для хранения (если есть возможность, то они тупо заливаются всем сегментом в память)
А ещё есть такое понятие выравнивание данных mВыравнивание_данных и если это ...

переменную счетчик придется уменьшать, так как размер программы увеличится до безобразия? Или что из-за большого размера счетчика лично Ваша программа зависнет?
Это как? Я не могу понять как размерность переменной может повлиять на размер программы. Также не могу представить какова может быть ...

Тут еще есть вопрос не скорости (все равно счетчик не дает особой потери производительности, да и, насколько мне известно, циклы крутятся преимущественно на регистрах процессора).
И даже для работы с гегистрами оптамальнее переменные равные по разрядности регистру, иначе идёт потеря ...

Используй для счетчиков цикла не Integer, а Byte -- я сомневаюсь, что цикл будет крутиться больше 250 раз.
Вот с этим утверждением позвольте не согласиться. Тип Integer действительно платформозависимый, но именно поэтому он оптимален для различных счётчиков, поскольку процессор обрабатывает числа ...

А как убрать сообщение с заголовка формы теперь?:)
Ну так:
mciGetErrorStringA - получить текст сообщения об ошибке по номеру ошибки,
Text:=AnsiToUtf8(s) - вывести текст в заголовок окна - это было сделано для диагностики ошибок.
А что бы петь рано не начинало нужно убрать автосоздание формы в ...

m

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, messages, mmsystem, LMessages, windows;

type

TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
end;

var ...