Переведите пожалуйста с паскаля на php

← →
DSKalugin © (2009-08-19 14:47) [0]

Суть в том что вещественное число хранится(разложено) в 3х полях,
а эта функция собирает его в нормальное представление
function BtrMoney2extended(lo, hi:LongInt; pp: SmallInt): Extended; Type BtrMoney = record lo,hi : LongInt; pp : SmallInt; end; var Sum: BtrMoney; begin Sum.Lo := lo; Sum.Hi := hi; Sum.Pp := pp; Move(Sum, Result, Sizeof(Sum)); Result:=Result/100; end;

← →
ggg © (2009-08-19 18:40) [1]

А как это работает? Sizeof(Sum) = 12, Sizeof(Extended) = 10.

← →
Palladin © (2009-08-19 18:45) [2]

а оно тупо не работает )

← →
Jeer © (2009-08-19 18:49) [3]

Не вопрос перевести и чтобы оно также тупо не работало.
Но зачем ? :)

← →
Холивар (2009-08-19 19:18) [4]

> ggg © (19.08.09 18:40) [1]
>
> А как это работает? Sizeof(Sum) = 12

Два последние байта - выравнивание 32 бита. А так все правильно (4 + 4 + 2) + 2 ничейных байта выравнивания до кратного 4-м. На 64-битном компиляторе(например fpc) было бы требование кратности 8-ми по-умолчанию

← →
Palladin © (2009-08-19 19:33) [5]

> [4] Холивар (19.08.09 19:18)

То есть ты считаешь правильным Move в переменную размером в 10, 12ти байт?

← →
Холивар (2009-08-19 19:52) [6]

> Palladin © (19.08.09 19:33) [5]
>
> То есть ты считаешь правильным Move в переменную размером
> в 10, 12ти байт?

Нда, тонкостей не заметил.

Вот так правильнее будет.
Move(Sum, Result, Sizeof(Result));

Спасибо за поправку, но функция даже не смотря на это работала правильно на практике

> Move(Sum, Result, Sizeof(Result));

> Спасибо за поправку, но функция даже не смотря на это работала
> правильно на практике

Ты хоть понимаешь что она в принципе не могла работать правильно?
По встречной полосе тоже ездить можно.

Переведите пожалуйста с паскаля на php Найти похожие ветки