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

来源：互联网发布：什么叫网络平台编辑：程序博客网时间：2024/06/06 00:33

代碼如下:

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

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,strtoint(edit1.Text)+1);
i:=0;
for K:=1 to strtoint(edit1.Text) do
begin
i:=i+1 ;
       mymemo[i]:=tmemo.Create(self);
       mymemo[i].Parent:=self;
       mymemo[i].Top:=25+i*50;
       mymemo[i].left:=10;
       mymemo[i].Height:=55;
       mymemo[i].Width:=165;
       //mymemo[i].ScrollBars:=ssVertical;
       mymemo[i].lines.LoadFromFile(listbox1.Items[k-1]);
       mymemo[i].Show;
       //mymemo[i].Free;
       end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
edit2.Text:= listbox1.Items[listbox1.itemindex];
rich.Lines.LoadFromFile(listbox1.Items[listbox1.itemindex]);
end;

---------------------------------代碼結束--------------------

還有問題是memo中不能讀取unicode編碼的txt文檔.

不知道哪位高手可以幫我完整此段代碼