范例（t）:
导出操作：
data:=rand(10,array("A","B","C"));
r:=rdo2 Exportfile(ftStream(),'','E:\\test\\tsdata.stm',data);
if r=1 then return "导出成功";
else return r;//导出失败
导入操作：
r:=rdo2 Importfile(ftStream(),'','E:\\test\\tsdata.stm',data);
if r=1 then return data;
else return r;//导出失败
导入导出类型函数