TXT檔案(用FindFirst、FindNext、FindClose函數); var sr:TSearchRec; f:integer; {...} f:=FindFirst('C:\*.TXT',faAnyFile,sr); while f=0 do begin ...
確定! 回上一頁