Zitat von
LDericher:
Delphi-Quellcode:
TFontSpecification = record
FontID: integer;
Family: TFontFamily;
Name: string;
end;
TFontSpecificationArray = array of TFontSpecification;
TFontTable=class
private
fontSpecifications: TFontSpecificationArray;
{...}
end;
Das ist das, was ich als erstes machen würde
Aber davon mal abgesehen, das SetLength auf 0 sollte den Speicher defakto auch wieder freigeben.
Ausser natürlich, TFontFamily ist ein Objekt oder ein Struct, welches Objekte enthält.
Das bedeutet, du müsstest dann vorher im Destruktor deiner Table durch fontSpecifications durchlaufen und alle
Objekte in dem Array manuell freigeben.
Betrifft wie gesagt nur Objekte - Structs und Wertetypen sind aussen vor, die werden sofort sauber freigegeben.