Komponente, die zur Laufzeit in Delphi 2K9 deaktiviert und aktiviert wird. Sonderbares Problem

Question

Hier Code:

procedure DisableContrlOL(const cArray : array of string; ReEnable : boolean = False); 
// can be called from VKP/RAW/Generation clicks 
var 
    AComponent: TComponent; 
    CompListDis, CompListEna : TStringList; 
begin 
    CompListDis := TStringList.Create; 
    CompListEna := TStringList.Create; 
    for i := Low(cArray) to High(cArray) do begin 
    AComponent := FindComponent(cArray[i]); 
    if Assigned(AComponent) then 
     if (AComponent is TControl) then begin 
     if TControl(AComponent).Enabled then 
      CompListEna.Add(TControl(AComponent).Name) 
     else 
      CompListDis.Add(TControl(AComponent).Name); 
     ShowMessage(TControl(AComponent).Name); 
     if ReEnable then begin // if reenabling needed, then all whi 
      if not TControl(AComponent).Enabled then 
      TControl(AComponent).Enabled := True; 
     end else if (TControl(AComponent).Enabled) then 
      TControl(AComponent).Enabled := False; 
     end; 
    end; 
end; 

Ich denke nicht mehr Erklärungen benötigt. Die ShowMessage zeigt korrekt den Namen jeder Komponente an, aber in StringLists wird nichts hinzugefügt. Warum?

UPDATE: Als Frage ist ziemlich wild gegangen, ich habe Antwort bestätigt, die mir ein bisschen geholfen hat.

Ich verstehe, dass ich Dinge ziemlich unklar geschrieben habe, aber ich bin sehr begrenzt, weil diese Codezeilen Teil des kommerziellen Projekts sind, und mein Hobby und Herzsache. Das Hauptproblem wurde bereits vor 6 Stunden gefunden, aber Rob wollte nur diese ganze Frage ausweiten: D Nein, nichts für ungut, Kumpel, es ist OK. Ich freue mich, so willige und hilfreiche Beiträge zu erhalten. Danke noch einmal.

Answer 1

Woher wissen Sie, dass den Listen nichts hinzugefügt wird? Sie erstellen sie in diesem Code und die einzigen Verweise auf sie sind in lokalen Variablen. Wenn diese Funktion zurückkehrt, sind die Objekte durchgesickert, so dass Sie die Listen nie irgendwo verwenden.

Sie haben gesagt, Sie haben Code für "modulare Tests". Da dieser Code nicht hier ist, muss ich davon ausgehen, dass der Code nicht Teil dieser Funktion ist. Wenn Sie jedoch externen Code haben, der den Inhalt der Listen überprüfen soll, dann dürfen die Listen nicht nur lokale Variablen sein. Kein anderer Code kann auf sie zugreifen. Sie müssen diese Listen entweder zurückgeben oder Listen von außerhalb übernehmen, die Sie dann ausfüllen. Hier ist ein Beispiel für letzteres:

procedure DisableContrlOL(const cArray: array of string; 
          Reenable: Boolean 
          CompListDis, CompListEna: TStrings); 
// can be called from VKP/RAW/Generation clicks 
var 
    AComponent: TComponent; 
    AControl: TControl; 
    i: Integer; 
begin 
    for i := Low(cArray) to High(cArray) do begin 
    AComponent := FindComponent(cArray[i]); 
    if not Assigned(AComponent) or not (AComponent is TControl) then 
     continue; 

    AControl := TControl(AComponent); 
    if AControl.Enabled then 
     CompListEna.Add(AControl.Name) 
    else 
     CompListDis.Add(AControl.Name); 
    ShowMessage(AControl.Name); 

    AControl.Enabled := Reenable; 
    end; 
end; 

Der Aufrufer dieser Funktion einen TStrings Nachkommen für jede Liste angeben müssen. Sie könnten TStringList sein, oder sie könnten andere Nachkommen sein, wie TMemo.Lines, so dass Sie ihren Inhalt direkt in Ihrem Programm beobachten können. (Sie können nicht nur TStrings, obwohl sein, denn das ist eine abstrakte Klasse.)

---

Wie Sie sehen können, habe ich, um Ihren Code ein paar andere Änderungen vorgenommen. Der gesamte Code, der den Parameter Reenable verwendet, kann zu einer einzelnen Anweisung vereinfacht werden. Das liegt daran, dass das Aktivieren eines bereits aktivierten Steuerelements und das Deaktivieren eines Steuerelements, das bereits deaktiviert ist, keine Operationen sind.

Außerdem ist Name eine öffentliche Eigenschaft von TComponent. Sie müssen vor dem Lesen dieser Eigenschaft nicht auf TControl tippen, aber da Sie so oft anderswo tippen, war es sinnvoll, eine neue Variable einzuführen, die den typisierten Wert TControl enthält Code leichter zu lesen. Leichter zu lesender Code ist leichter zu verstehender Code und erleichtert das Debuggen.

Answer 2

Das sieht sicher so aus, als müsste es funktionieren. Dies ist die Art von Sache, bei der der Debugger wahrscheinlich mit mehr helfen kann als wir hier können.

Versuchen Sie, die problematische Zeile nach unten in mehrere Zeilen umbrochen, etwa so:

if TControl(AComponent).Enabled then 
    CompListEna.Add(TControl(AComponent).Name) 
    else CompListDis.Add(TControl(AComponent).Name); 

Rebuild mit der „Use Debug DCU“ Option auf, und legen Sie einen Haltepunkt auf der wenn Aussage. Dann benutze F7, um deinen Weg durch die Logik zu verfolgen und zu sehen, was vor sich geht.

Answer 3

, dass diese betonend basiert weitgehend auf Robs ausgezeichnete Vorschläge, es sieht aus, als ob Sie den Code vereinfachen könnte:

procedure DisableContrlOL(const cArray : array of string; 
           ReEnable : boolean = False); 
var 
    AComponent: TComponent; 
begin 
    for i := Low(cArray) to High(cArray) do 
    begin 
    AComponent := FindComponent(cArray[i]); 
    if Assigned(AComponent) then 
     if (AComponent is TControl) then 
     begin 
     ShowMessage(TControl(AComponent).Name); 
     TControl(AComponent).Enabled := ReEnable; 
     end; 
    end; 
end; 

nicht klar, was die Stringlisten waren für, da deren Inhalt verloren gingen, wenn die Ausführung links Umfang dieses Verfahrens. Wenn Sie sie zurückgeben möchten, sollten Sie sie im aufrufenden Code erstellen und freigeben.