向各位高手请教

[wsf]

delphi中的move的例子如下：
var

A: array[1..4] of Char;
B: Integer;
begin
Move(A, B, SizeOf(B)); { SizeOf = safety! }
end;
以下是我写的例子：

function strLen(const str: string): integer;
var
len, mlen : integer;
begin
len := Length(str);

Move(str[5], mlen, sizeof(integer));

Result := mlen + 8;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
i: integer;
begin
s:='123456789';
i:= msglen(s);
showmessage(inttostr(i));

end;
显示的结果让人看不懂，希望高手给予指点，此函数的含义和作用。谢了！！！

[Ardus]

这不自己跟自己较劲吗？Move(A,B,Len)是从地址A处拷贝Len个字节的东西到地址B处。
你的函数应该将'5678'字符串，Copy到一个整数空间中，
procedure TForm1.Button1Click(Sender: TObject);
var a : array[1..4] of char;
b : Integer;
begin
a := #0#0#0#0;
Move(a,b,4);
ShowMessage(IntTostr(b));
end;
将#0分别用'5','6','7','8'的Ascii码替换就明白了。

[DelphiX]

>a := #0#0#0#0;
如果a:array[1..100000] of char,那不是真个程序都是#0#0....

fillchar(a,4,#0);