L
laoyou
Unregistered / Unconfirmed
GUEST, unregistred user!
顺便说一下怎样还原，谢谢，[
]
]
U
ugvanxk
Unregistered / Unconfirmed
GUEST, unregistred user!
来回move
无
无疯无禄
Unregistered / Unconfirmed
GUEST, unregistred user!
mod 10
再转成Char 放不行吗
不知道有没有理解错误
再转成Char 放不行吗
不知道有没有理解错误
L
lanbing1400
Unregistered / Unconfirmed
GUEST, unregistred user!
type
buf=array[1..4]of char;
var
buf1:buf;
i:integer;
s:string;
begin
i:=8;
s:=inttostr(i);
buf1[1]:=s[1];
end;
//还原同理，自己写两句吧
buf=array[1..4]of char;
var
buf1:buf;
i:integer;
s:string;
begin
i:=8;
s:=inttostr(i);
buf1[1]:=s[1];
end;
//还原同理，自己写两句吧
W
www
Unregistered / Unconfirmed
GUEST, unregistred user!
用 move就可以了.
var buf:array[0..3] of char;
v:integer;
x:integer;
begin
v:=10;
move(v,buf,4);
//为了证实是否写到buf中了,我们把它读出来到x中
move(buf,x,4);
showmessage(inttostr(x));
end;
var buf:array[0..3] of char;
v:integer;
x:integer;
begin
v:=10;
move(v,buf,4);
//为了证实是否写到buf中了,我们把它读出来到x中
move(buf,x,4);
showmessage(inttostr(x));
end;
W
www
Unregistered / Unconfirmed
GUEST, unregistred user!
不过以上的move(buf,x,4);这里的4最好用sizeof(integer)代替,因为integer在有的机器和操作系统下
不一定为4个字节的.
不一定为4个字节的.
影
影 子
Unregistered / Unconfirmed
GUEST, unregistred user!
一个integer是四个byte，一个byte对应一个char
通过(integer shr 8*i) and $FF取得，不必要另存。
通过(integer shr 8*i) and $FF取得，不必要另存。
W
www
Unregistered / Unconfirmed
GUEST, unregistred user!
你真是我的影子..我到这里你还跟着我.
L
laoyou
Unregistered / Unconfirmed
GUEST, unregistred user!
多谢！[][][]
][][]
影
影 子
Unregistered / Unconfirmed
GUEST, unregistred user!
小朋友，不是叫你不要乱说话吗？记住要听话，要不就不乖了。[
]
L
laoyou
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。