delphi 把指定目錄中的所有文件名放到ComboBox下拉列表中

文件名函數可以對文件的名稱、所在子目錄、驅動器和擴展名等進行操作。ExpandFileName() 返回文件的全路徑(含驅動器、路徑)

ExtractFileExt() 從文件名中抽取擴展名

ExtractFileName() 從文件名中抽取不含路徑的文件名

ExtractFilePath() 從文件名中抽取路徑名

ExtractFileDir() 從文件名中抽取目錄名

ExtractFileDrive() 從文件名中抽取驅動器名

ChangeFileExt() 改變文件的擴展名

ExpandUNCFileName() 返回含有網絡驅動器的文件全路徑

ExtractRelativePath() 從文件名中抽取相對路徑信息

ExtractShortPathName() 把文件名轉化為DOS的8·3格式

MatchesMask() 檢查文件是否與指定的文件名格式匹配

源碼如下:(其他代碼沒改,就改了按鈕2的事件)

procedure TForm1.sButton2Click(Sender: TObject);

var

FilesList: TStringList;

Name:string;

i:integer;

begin

FilesList := TStringList.Create;

sComboBox2.Items.Clear;

try

FindFiles(FilesList, 'D:\Mirserver','*.txt);

for i:=1 to FilesList.Count do

sComboBox2.Items.Add(ExtractFilename(FilesList.Strings[i-1]));

finally

FilesList.Free;

end;

end;

上一篇:塞班系統的手機能用微信嗎?

下一篇:如何用VB獲取指定網址指定內容數值