Oracle循環查詢結果集 自定義函數

create or replace function Fun_GetRoleIDList(d_fid char) return varchar is
  rolelist varchar(2000);
begin
  rolelist := '';
  ---定義遊標
 declare cursor role_cur is select a.roleid from u_roleinfo a , u_node_roles b  where  a.roleid=b.roleid and b.fid=d_fid ;
 
  begin
    ---循環
    for roles in role_cur loop
      rolelist := rolelist || roles.roleid || ',';---賦值
    end loop;
   
  end;
  return(rolelist);---返回
end Fun_GetRoleIDList;