1
如何查看Delphi 7中的某個目錄中的哪些文本文件。以便我可以打開文件夾中的所有文本文件。如何檢查目錄中存在哪些文件?
如何查看Delphi 7中的某個目錄中的哪些文本文件。以便我可以打開文件夾中的所有文本文件。如何檢查目錄中存在哪些文件?
有幾種不同的方式:
可以使用FindFirst()
和FindNext()
功能在System.SysUtils
單元。
uses
..., SysUtils;
var
sr: TSearchRec;
begin
if FindFirst('C:\folders\*.txt', faAnyFile, sr) = 0 then
try
repeat
if (sr.Attr and faDirectory) = 0 then
begin
// use sr.Name as needed...
end;
until FindNext(sr) <> 0;
finally
FindClose(sr);
end;
end;
,如果你使用的是德爾福2010或更高版本,可以使用TDirectory
類的GetFiles()
方法在System.IOUtils
單元。
uses
..., System.IOUtils;
var
files: TStringDynArray;
filename: string;
begin
files := TDirectory.GetFiles('C:\Folder', '*.txt');
for filename in files do
begin
// use filename as needed...
end;
end;
這是代碼德爾福7或8,因爲我沒有System.IOUtils –
德爾福8是.NET預覽。你沒有提到你的問題中的Delphi版本。 –
是的,即時通訊對不起,它只是跳過我的腦海 –