@Igel: Ich bekomme neuerdings beim Beenden der Anwendung einen Speicherfehler. Habe das ganze auf folgende Stelle eingrenzen können:
Delphi-Quellcode:
procedure TAdFontMap.Clear;
var
i,j:integer;
p:PAdLinkedList;
c:PAdMapPair;
begin
p := Data;
for i := 0 to Capacity - 1 do
begin
p^.StartIteration;
while not p^.ReachedEnd do
begin
c := PAdMapPair(p^.GetCurrent);
c^.Key.Free;
Dispose(c); // <<<--- Hier kommt der Speicherfehler
FCount := FCount - 1;
end;
for j := 0 to p^.Count - 1 do
begin
p^.Delete(0);
end;
inc(p);
end;
end;
Vielleicht kommst du ja hier weiter - mehr habe ich nicht hinbekommen