Форум: "Основная";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];

Вниз

D2 и DWORD   Найти похожие ветки 

← →
NP-237   (2003-04-30 15:49) [0]

Здравствуйте.

Помогите, никак не могу сообразить как в D2

вместо $FFFFFFE8 получить $39


var D:DWORD; W:DWORD;
begin
D := $B2D05E00; //3 000 000 000

W := D div $31C84B1; //52 200 625

Panel1.Caption := Format("%x",[W]);


---

← →
MBo   (2003-04-30 15:51) [1]

попробуй Format("%x",[W+$80000000]);

---

← →
NP-237   (2003-04-30 16:20) [2]

Проблема разрешилась.


{$L udiv.obj}
function __udiv(A,B:DWORD):DWORD; cdecl; external;

var A,B,C:DWORD;
begin
A := $B2D05E00;
B := $31C84B1;
C := __udiv(A,B);
end;

unsigned int _udiv(unsigned int A,unsigned int B){return A/B;}


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c