Question

DELPHI 有问题，报错！~~

namelist:TStringList;

procedure TForm1.Button1Click(Sender:TObject);
begin
listbox1.Clear ;
pathstr:=pchar(edit1.text +'\*.*');
hd:=FindFirstFile(pathstr,fddata);
while(true) do
begin
if fddata.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY then
begin
Listbox1.Items.Add(string(fddata.cFileName));
namelist.Add(string(fddata.cFileName)); //<-这个有问题
end;
br:=FindNextFile(hd,fddata);
if not br then break;
end; //while end;

windows.FindClose(hd);
end;

----------------------------------------------------
能编译，但是出窗口的错误
如果回答好 给分，哈，

Answer 1

不知道你具体报什么错误，你的namelist初始化了没有（create)
为啥你不用delphi已经封装好findfirst函数呢？很好用的。

追问

加我一下Q可以吗？ 1102934754 想和您学DELPHI

追答

我平时不用QQ的，
抱歉。