向各位高手请教
wsf 2000-05-10 03:21:00 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;
显示的结果让人看不懂,希望高手给予指点,此函数的含义和作用。谢了!!!