//获取一个文件夹下的所有文件 //不包括文件夹里面的文件 //ListBox1.Items:= searchfile('Z:\'); //注意,path后面要有'\'; function Searchfile(path:string):TStringList; var SearchRec:TSearchRec; found:integer; begin Result:=TStringList.Create; found:=FindFirst(path+'*.*',f…
原文链接--http://blog.csdn.net/qq525099302/article/details/47146393 为什么要使用函数来获取序列值请看这里 -- 创建获取序列下一个值的函数 create or replace function get_seq_next (seq_name in varchar2) return number is seq_val number ; begin execute immediate 'select '|| seq_name|| '.next…