Question

delphi7长如何知道一个动态多维数组的大小？

Answer 1

//sizeof();

function BytyToHex(suc:array of byte):string;
var
i :integer;
begin
for i := 0 to Sizeof(suc)-1 do
begin
result := result +' '+IntToHex(suc[i],2);
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
Str : string;
Buf : array[0..9] of byte;
begin
fillchar(buf,sizeof(buf),0);
Str := '0123456789';
strpcopy(@buf,str);
showmessage(BytyToHex(buf));

Answer 2

low取下标
high取上标
大小可以用length取

Answer 3

var
a :array [0..9] of Integer;
begin
ShowMessage(IntToStr(Length(a)));
end;