| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ascii => DWord [D7]
ArtemESC © (2005-10-09 13:57:00)Помогите, меня заклинило...
Как мне это сделать, вообще вот что я
хочу: у меня есть строка Ascii размером
4 байта или меньше , так вот как мне
скопировать ее побайтно в DWord.
Anatoly Podgoretsky (2005-10-09 15:50:00) [1]Есть столько методов копирования, что приведение их займет не один десяток страниц. (На странице помещается 20 сообщений).
begin...end (2005-10-09 14:54:00) [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.
Zeqfreed (2005-10-09 14:33:00) [3]
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);
Так?
| |
