Delphi: Probleme mit TList von Frames

Question

Ich habe ein Problem mit einer Schnittstelle, die aus einer Anzahl von Frames (normalerweise 25) innerhalb einer TScrollBox besteht.

Es gibt zwei Probleme, und ich hoffe, dass man eine Folge der anderen ist ...

Hintergrund:

Wenn die Anwendung startet, schaffe ich 25 Bilder, die jeweils ca. enthaltend . 20 Steuerelemente, die dann mit den Standardinformationen gefüllt werden. Der Benutzer kann dann auf einem Steuerelement klicken Sie auf die Suche auf eine Teilmenge der Informationen zu begrenzen, den Punkt, den ich meine Frames befreien und neu erstellen (wie die Suche < 25 Datensätze zurückgeben kann)

Das Problem:

Wenn Ich beende die Anwendung nach der ersten Suche, dann dauert es ca. 5 Sekunden, um nach Delphi zurückzukehren. Nach der 2. Suche (und dem Neuanlegen von Frames) dauert es ca. 20 Sekunden)

Während ich die Anwendung schreiben konnte, um nur die Rahmen einmal zu erstellen, würde ich gerne verstehen, was vor sich geht.

Hier ist meine schaffen Routine:

procedure TMF.CreateFrame(i: Integer; var FrameBottom: Integer); 
var 
    NewFrame: TSF; 
begin 
    NewFrame := TSF.Create(Self); 
    NewFrame.Name := 'SF' + IntToStr(i); 
    if i = 0 then 
     NewSF.Top := 8 
    else 
     NewSF.Top := FrameBottom + 8; 
    FrameBottom := NewFrame.Top + NewFrame.Height; 
    NewFrame.Parent := ScrollBox1; 
    FrameList.Add(NewFrame); 
end; 

Und hier ist meine Löschroutine:

procedure TMF.ClearFrames; 
var 
    i: Integer; 
    SF: TSF; 
begin 
    for i := 0 to MF.FrameList.Count -1 do 
    begin 
     SF := FrameList[i]; 
     SF.Free; 
    end; 
    FrameList.Clear; 
end; 

Was bin ich?

Answer 1

Da Sie die Kontrolle über die Speicherzuweisung der Frames übernehmen, die Sie erstellen, indem Sie sie freigeben, müssen Sie Self nicht als Besitzerparameter im create-Konstruktor angeben. Übergeben Sie stattdessen nil, um zu verhindern, dass der Besitzer versucht, den Rahmen freizugeben.

Auch mag nicht das Aussehen Ihrer ClearFrames-Routine. Versuchen Sie dies stattdessen:

while FrameList.count > 0 do 
begin 
    TSF(Framelist[0]).free; 
    Framelist.delete(0); 
end; 
Framelist.clear; 

Answer 2

Wenn Sie wissen möchten, warum Ihre App so lange braucht, um etwas zu tun, versuchen Sie es mit einem Profiling. Versuchen Sie Sampling Profiler gegen Ihr Programm laufen. Die Hilfedatei erläutert, wie Sie das Profiling auf nur einen bestimmten Bereich Ihrer App beschränken können, mit dem Sie nur Sampling-Ergebnisse zum Löschen oder Erstellen von Teilen erhalten können. Dies sollte Ihnen zeigen, wo Sie die meiste Zeit verbringen und viel Rätselraten daraus machen.