如何打开所有* .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;

将其放在按钮上，单击或将其包装到过程中。