返回值为 Record类型的函数 初始化 Result

function TMiTeC_Storage.GetPhysInfo(Index: integer): TDeviceInfo;

begin

  Finalize(Result);

  FillChar(Result,SizeOf(TDeviceInfo),0);

  if (Index>=0) and (Index<Length(FPHYS)) then

    Result:=FPHYS[Index];

end;

MiTeC控件的写法

你可能感兴趣的:(result)