如何将所有 *.txt 打开到列表框 [关闭]

Question

我需要在 ListBox（一个包含许多 *.txt 文件的文件夹）中打开这些文件的内容。我想知道一种将文件夹中的所有文本文件加载到 ListBox 中的方法。我需要通过单击或过程打开列表框中的所有 .txt 文件。

Answer 1

你可以这样做：

var
  path: string;
  SR: TSearchRec;
  tempFile: TextFile;
  line: string;
begin
  path:= 'C:\ insert path to your folder\';
  if FindFirst(path + '*.txt', faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr <> faDirectory) then
      begin
        AssignFile(tempFile, path + SR.Name);
        Reset(tempFile);
        while not Eof(tempFile) do
        begin
          Readln(tempFile, line);
          ListBox1.Items.Add(line);
        end;
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

把它放在按钮点击或包装到过程中。