要遍历的是两种类型的文件咋写？

冥界3大法王

[Delphi] 纯文本查看 复制代码

uses
  IOUtils, Types;

procedure TForm8.再试遍历指定文件夹Click(Sender: TObject);
var
  files: TStringDynArray;
  str: string;
begin
  files := TDirectory.GetFiles('X:\Tools', '*.exe|*.lnk', TSearchOption.soAllDirectories);
  for str in files do
    ShowMessage(str);
end;

冥界3大法王

hahatata 发表于 2024-9-24 17:04
谢谢。。

大姐，这是错的代码，
这是求助。
还谢谢？

你好，再见

居然还能看到Delphi。。。

lies2014

files := TDirectory.GetFiles('X:\Tools', '*.[el][xn][ek]', TSearchOption.soAllDirectories);

冥界3大法王

lies2014 发表于 2024-9-25 17:50
files := TDirectory.GetFiles('X:\Tools', '*.[el][xn][ek]', TSearchOption.soAllDirectories);

@lies2014
牛逼， 这是怎么查出来的？
球方法和窍门？

lies2014

冥界3大法王 发表于 2024-9-26 17:20
@lies2014
牛逼， 这是怎么查出来的？
球方法和窍门？

看 Lazarus 的代码试出来的
可惜这个通配符不能用正则

冥界3大法王

lies2014 发表于 2024-9-26 19:31
看 Lazarus 的代码试出来的
可惜这个通配符不能用正则

果然修炼的成精了。。。这都能试出来。。。牛拜。。帮助找了半天也没找到对应的在哪？