第一问答网»论坛 › 中问网 › 问答 › 【delphi】请问在delphi中，如何把某文件夹下的文件读取 ...

【delphi】请问在delphi中，如何把某文件夹下的文件读取到PopupMenu上或者说如何用PopupMenu遍历文件

11 |

1 | 2012-8-23 09:19:00 | 显示全部楼层 |阅读模式

给个例子给你： procedure TForm1.FormCreate(Sender: TObject);constext='.TXT';varsr: TSearchRec;eh: Integer;pt: String;mn: TMenuItem;begin
pt := ExtractFilePath(Application.ExeName);
if pt[Length(pt)]'\' then pt := pt + '\';
eh := FindFirst(pt + '*.*', faAnyFile, sr);
while eh = 0 do ...

使用道具举报