第六章文件管理三(完整版)
【正文】 ExtractFileName(FileName)。 var CopyBuffer: Pointer。在 Object Pascal 中這一點(diǎn)是利用無(wú)類型文件實(shí)現(xiàn)的。 end。, Directory, SW_SHOW) 。 end。文件總是與創(chuàng)建它的應(yīng)用程序相關(guān)聯(lián)，這種關(guān)聯(lián)可以在 Windows 的 文件管理器中修改。 Selected: Boolean)。這一事件處理過程的參數(shù)中包含了待畫項(xiàng)目索引、畫板、待畫區(qū)域、是否被選中等。 TabCanvas: TCanvas。 end。 ShowCmd: Integer): THandle。 在子窗口的 Open1Click 事件處理過程中： procedure (Sender: TObject)。 begin With FileList do begin if HasAttr(FileName,faDirectory) then := FileName else ExecuteFile(FileName,39。 begin Result := (FileGetAttr(FileName) and Attr) = Attr。為保證文件的正常關(guān)閉和內(nèi)存的 釋放，在拷貝過程中進(jìn)行異常保護(hù)。 begin Destination := ExpandFileName(DestName)。 try Dest := FileCreate(Destination)。 finally FileClose(Source)。 procedure MoveFile(const FileName, DestName: TFileName)。 EFCanMove 是一個(gè)自定義異常類： type EFCanMove := Class(EStreamError)。 共用的事件處理過程 FileChange 的程序清單如下： procedure (Sender: TObject)。Copy39。 := 。 if (ShowModal idCancel) and ( 39。, [ACaption, FromFile, ToFile]), mtConfirmation, [mbYes, mbNo], 0) = idYes then begin if ACaption = 39。 then changeDirectory(ToFile)。 begin FileAttrForm := (self)。 := DateTimeToStr(FileDateTime(AFileName))。 if then NewAttributes := NewAttributes or faArchive else NewAttributes := NewAttributes and not faArchive。 function FileDateTime(const FileName: String): 。但可惜的是：也許由于系統(tǒng)設(shè)計(jì)者的失誤，這個(gè)函數(shù)并沒有返回它應(yīng)該返回的東西 (第一個(gè)匹配文件的全路徑名 )，而是仍把輸入的匹配符返回。 Return: Integer。39。 end。 ShowFileAttr(FileAttrForm,FindIt,Path)。 begin Free := DiskFree(0)。讀者可以很容易把它改成按用戶輸入顯示磁盤信息的情況。File type39。 := FileMask。通過檢查 IOResult 是否為 0可以確定創(chuàng)建是否成功。) then Dir := ExpandFileName()。必須移到另一個(gè)驅(qū)動(dòng)器而后再返回，創(chuàng)建的目錄才是可見的。 := ExpandFilePath(Path)。而當(dāng)我分析了它的源代碼后，我知道應(yīng)該做什么了，那就是為 DirectoryOutline 增添一個(gè) Reset 方法 ! 為部件增添一個(gè)方法 嚴(yán)格地說，我們所做的工作屬于創(chuàng)建一個(gè)新部件。 procedure 。 讀者也許被這段代碼弄糊涂了。此時(shí)FileList 占據(jù)了整個(gè)客戶區(qū)； FileList 的 Align 屬改為 None，并留出左邊的空白供放部件用； TDirectoryOutlinPlus 類的部件 DirectoryOutline； DirectoryOutline 的 Align 屬性改為 Left， FileList 的 Align 屬性還原為Client； DirectoryOutline的事件 OnChange列表中選取 DirectoryOutlineChange，即原 DirectoryOutline 的處理過程。 := ExtractFilePath(Path)。+ 39。 begin {$I} NewDir := (self)。Cannot Create directory39。詳細(xì)情況請(qǐng)讀者參看 ()中的介紹。 Refresh。我們把當(dāng)前目錄加上文件的類型作為子窗口的標(biāo)題。 Caption := Cap。 。%s, %d bytes39。 菜單項(xiàng)的變灰與使能 File 菜單中定義的文件管理功能只有當(dāng)活動(dòng)焦點(diǎn)在 FileList(即有當(dāng)前選中文件 )時(shí)才起作用。 := FileSelected。這些模塊除在本程序中使用外，讀者可以在其它應(yīng)用程序中直接調(diào)用，而且不必重新編譯，只要在 Uses 子句中包含即可。本章介紹的思路和方法將為讀者成為一個(gè)熟練的程序員奠定基礎(chǔ)。 小結(jié) 文件管理器是一個(gè)較為綜合的例程，使用到了絕大部分以文件名、文件句柄以及其它參數(shù) (除文件變量 )為操作對(duì)象的文件管理過程 /函數(shù)，同時(shí)也提供了 一些程序設(shè)計(jì)開發(fā)的思想。 := FileSelected。 這一功能在 File 菜單的 Click 事件處理過程中實(shí)現(xiàn)。 end else := 39。 。 當(dāng)前目錄或文件顯示類型發(fā)生變化時(shí)改變子窗口的標(biāo)題。 procedure 。 Exit。 procedure (Todir: String)。 end。 if (ShowModal idCancel) and ( 39。,mtWarning,[mbOk], 0) else 。Delete 39。這只需要調(diào)用 DirectoryOutline 的 Reset 方法即可。假如讀者想徹底搞懂它，我建議先看一下本書第三編有關(guān)自定義部件開發(fā)的內(nèi)容，而后再對(duì)照原 DirectoryOutline的源代碼進(jìn)行分析。:39。這樣我們可以省去與創(chuàng)建部件有關(guān)的許多繁瑣工作。因?yàn)?DirectoryOutline 是 Delphi 提供的示例部件，沒有 Help 文件支持。 刪除目錄 在實(shí)現(xiàn)目錄刪除過程中，遠(yuǎn)不如創(chuàng)建目錄那
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1