Is this a bug in VclZip Pro 3.03 build 7

[mycwcgr]

Kevin


The following sentence is from VCLZip 3.03 Build 7

I think that is FName := Fname + '.zip' , no dot include


//--------------------------------------------------------------
procedure TVCLUnZip.DefaultFileNameForSplitPart(Sender: TObject; var FName: String; PartNum: Integer;
SplitType: TSplitPartType);
begin
if (BlockMode = bmStandard) then
begin

if (SplitType = spLast) then
FName := Fname + '.zip.' ( I think that is FName := Fname + '.zip' , no dot include)
else
FName := FName + '.zip.' + Format('z2.2d', [PartNum]);
end
else
FName := FName + Format('3.3d', [PartNum]);

end;
//--------------------------------------------------------------

[Kevin]

Yes, that is a typo. I'll fix that. Thanks for pointing that out.

Strangely enough though, in my tests, that extra period does not show up in the resulting filename. Does it in your case?

If so, what version of Delphi/BCB and Windows are you using?

Thanks,

Kevin

[mycwcgr]

The result of ZIP name is correct! but I don't know why it is correct! I think the ZIP file name will be "XXX.zip." , but actually it is "XXX.zip" !

[Kevin]

Yes, I think that's why I never caught it in my testing, but I'll fix the code anyway.

Kevin