SetLength(DynArray,0) gibt den speicher nicht frei

[DelTurbo]

Mit FastMM hab ich noch nie was gemacht. Müsste ich mir erstmal ansehen. Aber hier die schleife die frei geben soll.

Delphi-Quellcode:

procedure MemFreeHelper;
var
  i       :Integer;
begin
    for i:=Low(EMailData) to High(EMailData) do begin
      EMailData[i].InUse:=False;
      EMailData[i].HTML.Free;
      EMailData[i].TXT.Free;
    end;
    SetLength(EMailData,0);
end;