最近一直為數(shù)組的問題困繞。數(shù)組的值老是傳不對。

procedure sendData(cosnt buf;len:integer);
var
?? buffer:array of byte;
begin
?? move(buf,buffer,len);//這里buffer沒有正常將buf的值賦過來
?? //....?
end;


經(jīng)過研究發(fā)現(xiàn)是由于靜態(tài)數(shù)組和動態(tài)數(shù)組，指針的指向是不一樣的。 string類型也是動態(tài)數(shù)組。
如下例子。

靜態(tài)數(shù)組
procedure ? TForm1.Button1Click(Sender: ? TObject); ?
? var ?
? ? ? a:Array[0..10] ? of ? integer; ?
? ? ? b,c:pointer; ?
? begin ?
? ? ? b:=@a; ?
? ? ? c:=@(a[0]); ?
? ? ? showmessage(inttostr(integer(b))+' ? '+inttostr(integer(c))); ??????? --相等
? end;


procedure ? TForm1.Button2Click(Sender: ? TObject);??
? var ?
? ? ? a:array ? of ? integer; ?
? ? ? b,c:pointer; ?
? begin ?
? ? ? setlength(a,10); ?
? ? ? b:=@a; ?
? ? ? c:=@(a[0]); ?
? ? ? showmessage(inttostr(integer(b))+' ? '+inttostr(integer(c))); ?? --不相等 b:=a; ?
? ? ? c:=@(a[0]); ?
? ? ? showmessage(inttostr(integer(b))+' ? '+inttostr(integer(c))); ?? --相等
? end;

這兩個例子可以說明。動態(tài)數(shù)組的變量名，不等于第1個數(shù)組,它是一個地址.
靜態(tài)數(shù)組名等于第1個數(shù)組


所以在使用Move這個函數(shù)時，它取了source和Dest的地址進行賦值操作，如下:
procedure?????? Move( const Source; var Dest; count : Integer );
{$IFDEF PUREPASCAL}
var
? S, D: PChar;
? I: Integer;
begin
? S := PChar(@Source);
? D := PChar(@Dest);
? if S = D then Exit;
? if Cardinal(D) > Cardinal(S) then
??? for I := count-1 downto 0 do
????? D[I] := S[I]
? else
??? for I := 0 to count-1 do
????? D[I] := S[I];
end;

動態(tài)數(shù)組應該如下傳值
var
?? buffer:array of byte;
begin
?? move(buf,buffer[0],len);


靜態(tài)數(shù)組應該如下傳值
var
?? buffer:array of byte;
begin
?? move(buf,buffer,len);

轉(zhuǎn)載于:https://www.cnblogs.com/sunlinjun/archive/2009/12/18/1559228.html

總結(jié)

以上是生活随笔為你收集整理的delphi数组问题的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。