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

代碼如下:

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

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;
       finally
         findclose(SearchRec);
     end;
     edit1.Text:=inttostr(i);
end;

procedure TForm1.Button2Click(Sender: TObject);
 var
   mymemo:array of tmemo;
   k,i:integer;
begin
     setlength(mymemo,strt