Okay habe ich eigentlich auch:
Delphi-Quellcode:
destructor TMainList.Destroy;
begin
Clear;
ResizeArray(0);
inherited;
end;
procedure TMainList.Clear;
begin
FCount := 0;
case FReserveManagment of
rmExact, rmProgressive: begin
FReservedLength := 0;
end;
end;
ResizeArray(FReservedLength);
end;
Aber es kommt weiterhin der Fehler und die Speicherlecks sind weiterhin vorhanden.
MfG
xZise