Registriert seit: 10. Jun 2003
Ort: Berlin
9.663 Beiträge
Delphi 11 Alexandria
|
Re: Freigeben -> AV; Bearbeiten -> Nichts weiter
26. Feb 2009, 19:36
Was mir auffällt:
Delphi-Quellcode:
procedure TMainList.Clear;
begin
FCount := 0;
case FReserveManagment of
rmExact, rmProgressive: begin
FReservedLength := 0;
end;
end;
end;
und
destructor TMainList.Destroy;
begin
inherited;
end;
Müsste nicht in beiden Fällen Speicher freigegeben werden?
|