[delphi]动态创建MEMO历遍目录ＴＸＴ文件到listbox中,並將內容加載到memo中.

最新推荐文章于 2025-06-13 09:56:43 发布

原创

最新推荐文章于 2025-06-13 09:56:43 发布 · 2.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #integer

这段Delphi代码展示了如何动态创建Memo控件并将当前目录下所有TXT文件名添加到ListBox，同时将文件内容加载到对应的Memo中。然而，代码目前无法处理Unicode编码的TXT文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

代碼如下:

-----------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
SearchRec : TSearchRec;
int,i:integer;

begin
form1.Caption:=getcurrentdir;
   int:=findfirst(getcurrentdir+'/*.txt',faanyfile,searchrec);
   i:=0;
   try
     while int=0 do
     begin
       if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
       begin
         listbox1.Items.Add(getcurrentdir+'/'+searchrec.Name);
         int:=findnext(SearchRec);
          i:=i+1;
       end;

       end;
  &