摘要：
function ReturnFiles(slFilePath: string):TStringList;var Sr : TSearchRec; Err : integer;begin result:=TStringList.Create; if slFilePath='' then exit; if RightStr(slFilePath,1)'\' then slFilePath:=slFilePath+'\'; Err:=FindFirst(slFilePath+'*', faAnyFile, Sr) ; While (E 阅读全文
