摘要:
类似代码:CoInitialize(nil) ; //CoInitialize was not called Qry := TADOQuery.Create(nil) ; try// MUST USE OWN CONNECTION// Qry.Connection := Form1.ADOConnection1; Qry.ConnectionString := ConnStr; Qry.CursorLocation := clUseServer; Qry.LockType := ltReadOnly; Qry.CursorType := ctOpenForwardOnly; Qry.SQL.T 阅读全文
摘要:
网上一大把这种方法,可惜许多不能用。这个我试过了,可以。USES Masksprocedure GetFileListEx(FilePath, ExtMask: string; FileList: TStrings; SubDirectory: Boolean = True); //遍?目?及子目?function Match(FileName: string; MaskList: TStrings): boolean;var i: Integer;begin Result := False; for i := 0 to MaskList.Count - 1 do begin if Match 阅读全文