for i in 1.. currentIndex - 1 loop for j in i + 1..currentIndex loop if arr(i) = arr(j) then arr(j) := ''; end if; end loop; end loop; str := ''; for i in 1..currentIndex loop if arr(i) is not null then str := str sign arr(i);
数组置空:
arr(i) := ''; end if; end loop;
去掉前面的标识符:
Result := substr(str, 2, length(str)); return(Result);end MyReplace;