stop := (size - SIZEOF(pt)) / SIZEOF(pt); как это работает?

[Alexander S]

Вот по моему, не совсем правильно, поскольку в 64 битной системе адрес будет 8ми байтный а REAL останется 4 байта, вроде, и тогда не переносимость кода.
>что задумал автор?
>как это работает?

Автор хотел написать переносимый код, написал неправильно, но получил работающий код, потому-что SIZEOF(POINTER) и SIZEOF(REAL) оба равны 4.

Переносимый вариант должен выглядеть как-то так:

stop := (size - SIZEOF(pt^[0])) / SIZEOF(pt^[0]);