请问为什么字符数组传递后没有长度？

Question

procedure TForm1.btn1Click(Sender: TObject);
var
  buf:array[0..1024] of Char;
begin
  Test(buf);
end;procedure TForm1.Test(var buff);
begin
  self.Caption := IntToStr((。));　//这里如何得到buff的长度，也就是1025
end;

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var
  buf:array[0..1024] of Char;begin
  showMessage(inttostr(length(buf)));
end;

Answer 2

无类型数据参数，请注意传递长度。简单例子：
TStream.Write(var buf; size: Integer);
FileWrite(...; const buf; size: Integer);即然知道是使用无类型数据，就应该知道随之应该有长度问题。