类型转换问题

function getXYZ():string;
var
   xyz:array[0..2] of single;
begin
   xyz[0]:= 33.65;
   xyz[1]:= 52.33;
   xyz[2]:=100.11;
  //输出如：33.65/52.33/100.11 这样的形式
  result:= Format('%f/%f/%f',[xyz[0], xyz[1], xyz[2]]);
  // 如果想舍去小数或只留一位
  // result:= Format('%0.1f/%0.1f/%0.1f',[xyz[0], xyz[1], xyz[2]]);
end;