ZipFromuffer might be undefined

[w2m]

I did a build of a VCL Zip demo and the compiler returned a warning: [DCC Warning] VCLZip.pas(788): W1035 Return value of function 'TVCLZip.ZipFromBuffer' might be undefined.

function TVCLZip.ZipFromBuffer(Buffer: PAnsiChar; Amount: LongInt; FName: kpWString; DateTime: TDateTime): Integer;
begin
  FStreamTime := DateTime;
  try
    ZipFromBuffer(Buffer, Amount, FName);
  finally
    FStreamTime := 0;
  end;
end;

function TVCLZip.ZipFromBuffer(Buffer: PAnsiChar; Amount: LongInt; FName: kpWString): Integer;
begin
  Result := 0;
  if (Trim(FName) = '') or (Amount = 0) then
    exit;
  MemBuffer := Buffer;
  CurrMem := Buffer;
  MemLen := Amount;
  MemLeft := Amount;
  MemZipping := True;
  FilesList.Clear;
  FilesList.Add(Fname);
  try
    Result := Zip;
  finally
    MemZipping := False;
    CloseZip;
  end;
end;

Shouldn't the first of this overload be something like? :

function TVCLZip.ZipFromBuffer(Buffer: PAnsiChar; Amount: LongInt; FName: kpWString; DateTime: TDateTime): Integer;
begin
  FStreamTime := DateTime;
  try
    Result := ZipFromBuffer(Buffer, Amount, FName);
  finally
    FStreamTime := 0;
  end;
end;

...this eliminates the warning here.

Bill

[w2m]

I can not seem to be able to edit my own posts so... the Message title should have been TVCLZip.ZipFromBuffer...

[Kevin]

Yes, that does make sense. Thanks.