Ascii => DWord

← →
ArtemESC © (2005-10-09 13:57) [0]

Помогите, меня заклинило...
Как мне это сделать, вообще вот что я
хочу: у меня есть строка Ascii размером
4 байта или меньше , так вот как мне
скопировать ее побайтно в DWord.

← →
Zeqfreed © (2005-10-09 14:33) [1]

var a : array[0..3] of Byte; d : DWORD; p : PChar; begin StrCopy(@a, PChar("1234")); d := DWORD(@a); Move(d, p, 4); p[4] := #0; MessageBox(0, p, "", 0);

Так?

← →
begin...end © (2005-10-09 14:54) [2]

> ArtemESC © (09.10.05 13:57)

var D: DWORD; L: Integer; S: string; begin L := Length(S); if L <= 4 then Move(Pointer(S)^, D, L) end.

А если в строке гарантированно 4 символа, то можно проще:

var D: DWORD; S: string; begin D := PDWORD(S)^ end.

Есть столько методов копирования, что приведение их займет не один десяток страниц. (На странице помещается 20 сообщений).

Ascii => DWord Найти похожие ветки