要是不用Memo这个控件，ShowMessage（文件名），能成立不？

冥界3大法王

uses   strUtils;

procedure FindFiles(FilesList: TStrings; Subdir: Boolean; StartDir, FileMask: string);
var
  SR: TSearchRec;
  DirList, DirlistOnly: TStringList;
  IsFound: Boolean;
  i, Count: integer;
begin
  if StartDir[length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
  IsFound := FindFirst(StartDir + FileMask, faAnyFile - faDirectory, SR) = 0;
  while IsFound do
  begin
    begin
      FilesList.Add(StartDir + SR.Name);
      Count := Count + SR.Size;
    end;
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);

  // Build a list of subdirectories
  DirList := TStringList.Create;
  IsFound := FindFirst(StartDir + '*.*', faAnyFile, SR) = 0;
  while IsFound do
  begin
    if ((SR.Attr and faDirectory) <> 0) and (SR.Name <> '.') and (Subdir = true) and (SR.name <> '..') then
    begin
      DirList.Add(StartDir + SR.Name);
    end;
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);

  // Scan the list of subdirectories  
  for i := 0 to DirList.Count - 1 do
  begin
    FindFiles(FilesList, Subdir, DirList, FileMask);
  end;
  DirList.Free;
end;


procedure TForm4.Button16Click(Sender: TObject);
begin
  FindFiles(Memo1.Lines, false, 'X:\输出工具', '*.dcu');
end;

lcz300400

var
sFile:TextFile;

Memo控件里的内容，用sFile赋值应该可以

千影

能肯定是能  ，就是改动比较大， 想改的少点，直接  FilesList1: TStrings   用 FilesList1 替换 Memo1.Lines    最后用 for str1 in FilesList1 do  showmeessage(str1);

但整体代码比较老 ，不好理解，建议 直接都更换了  

files:=TDirectory.GetFiles(mypath,'*.dcu',TSearchOption.soAllDirectories) ;
for str1 in files do  showmessage(str1);

两行就解决了；

冥界3大法王

千影 发表于 2022-6-15 12:17
能肯定是能  ，就是改动比较大， 想改的少点，直接  FilesList1: TStrings   用 FilesList1 替换 Memo1.Lin ...

@千影 终于把你给盼来了，就要这种，简单实干！

gzh888666

我也想共鸣，奈何不入法门！