ZIP File names memory leak

[Moombas]

Zitat von tumo:

Delphi-Quellcode:

uses zip;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  zip: TZipFile;
begin
  zip := TZipFile.Create;
  zip.Open('C:\Users\[...]\Desktop\ActuallyAdditions-1.12.2-r151-2.zip', zmRead);
  zip.FileNames;
  zip.Free;
end;

Was ist denn wenn du das in einen try...finally block packst:

Delphi-Quellcode:

uses zip;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  zip: TZipFile;
begin
  zip := TZipFile.Create;
  try
    zip.Open('C:\Users\[...]\Desktop\ActuallyAdditions-1.12.2-r151-2.zip', zmRead);
    zip.FileNames;
  finally
    zip.Free;
  end;
end;