请问如何将这样一个结构体内的字段转化为string类型呢？

Question

Type
  TChar32 = Array[0..31] of Char;
  PTReportFieldItem = ^TReportFieldItem;
  TReportFieldItem = Packed Record
    Name      :TChar32;
    IsVisible :Boolean;
  end;请问如何将Name字段的转化为string类型呢？谢谢

Answer 1

var
  test: TReportFieldItem ;
  str: String;
begin
  fillchar(test.Name,sizeof(TChar32),65(*'A'*));
  str := String(test.Name);
  ShowMessage(str);
end;

Answer 2

var
  test: TReportFieldItem ;
  str: String;
begin
  str := StrPas(test.Name);  // 注意：这个test.Name 必须是以 ASCII 0 结尾。
  ShowMessage(str);
end;
正常情况下这种数据都是以 ascii 0 结尾的。