[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,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文檔.

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