[求助]zip的運用
With unzipMain do(unzipMain是unzip)begin
ZipName := edt2.Text; // set the zip filename
ReadZip;
// FilesList.Add( '*.cpp' );
// FilesList.Add( 'myprog.exe' );
// FilesList.Add( '?<0-9>*\*.h' );
// FilesList.Add( Filename[Count-1] );
DoAll := True;
DestDir := edt1.Text;
RecreateDirs := False;
RetainAttributes := True;
Unzip;
這段代碼執行後沒用反映,不會解壓,如果把上面的注釋去掉,// FilesList.Add( Filename[Count-1] ); 會報錯,我查了下:count=0,這是怎麼回事啊?請幫幫忙?謝謝