Текущий архив: 2005.10.30;
Скачать: CL | DM;

Вниз

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.

---

← →
Anatoly Podgoretsky ©   (2005-10-09 15:50) [3]

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

---

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

Текущий архив: 2005.10.30;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.085 c