Hi Experten!

Lassen sich Komponenten allgemein über eine Art Namesvariable ansprechen?

Beispiel:
ich hab eine Menge Buttons auf der Form (visuell erstellt).

var btn1, btn2 ... btn10 : TButton;

Nun sollen zur Runtime einige Eigenschaften gesetzt werden.
Normalerweise also:

markieren

Delphi-Quellcode:

btn1.caption := 'asdf';
btn1.hint := 'einHint';
btn1.enabled := false:
...
btn2.caption := 'asdf';
btn2.hint := 'einHint';
btn2.enabled := false:
...

Nun suche ich aber nach einer Möglichkeit, das zu verallgemeinern.

Ok, es gibt arrays.
Ich könnte alle Buttons per code erstellen.

markieren

Delphi-Quellcode:

var BtnAr : array of TButton;

for i := 1 to 10 do
  begin
    btnAr [i] := TButton.create (self);   
    btnAr [i].caption := 'asdf';       
    ...
  end;

Aber geht es auch anders?

Gibt es also eine Möglichkeit, die visuell erstellten Buttons allgemein mit dem 'btn' - Teil und dem Index anzusprechen?
Mit Objekten ist ja viel möglich...

Daniel

Wenn Du die Referenzen (z.B. nach dem Erzeugen der Form) in einen Array ablegst oder mit der Form.FindComponent() Krücke

Zitat von Daniel L.:

Gibt es also eine Möglichkeit, die visuell erstellten Buttons allgemein mit dem 'btn' - Teil und dem Index anzusprechen?

Zitat von mkinzler:

oder mit der Form.FindComponent() Krücke

Das wäre dann diese:

zusammenfalten · markieren

Delphi-Quellcode:

var
  btn: TButton;
  I: Integer;
begin
  for I := 1 to <anzahl button> do begin
    btn := FindComponent('btn' + I.ToString) as TButton;
    btn.caption := 'asdf';
    btn.hint := 'einHint';
    btn.enabled := false:
  end;
end;

Ich hätte auch noch eine Idee.
Alle Buttons die man später ansprechen möchte in eine TList<TButton> stecken. Damit vermeidet man dieses ständige FindComponent.

whow - ihr seid schnell

Vielen Dank

Moin...

...einen hätte ich noch.

TObjectDictionary<string, TButton> oder TDictionary<string, TButton>
...da kann man die Buttons auch nach dem Namen suchen. PS: Um Längen schneller als FindComponent!

Zitat von mkinzler:

Wenn Du die Referenzen (z.B. nach dem Erzeugen der Form) in einen Array ablegst oder mit der Form.FindComponent() Krücke

Wieso 'Krücke'?
Die Booleschen Werte aller Checkboxen in einem 'Optionen'-Dialog habe ich in einer 32-Bit Integervariablen gespeichert. Das Setzten der Checkboxen erfolgt folgendermaßen:

zusammenfalten · markieren

Delphi-Quellcode:

  Procedure SetCheckboxes(params: Cardinal);
  var i,len: Integer;
      TC: TCheckbox;
  begin
    len:= (sizeof(params) * 8) - 1; // Anzahl der Bits -1
    for i:= 0 to len do
    begin
      TC:= FindComponent('CheckBox' + IntToStr(i+1)) as TCheckbox; //checkbox1 ... checkbox32
      IF TC <> NIL Then TC.checked:= params and (1 shl i) <> 0;
    end;
  end;

Das Auslesen der Checkboxen geht entsprechend:

zusammenfalten · markieren

Delphi-Quellcode:

  Procedure ReadCheckboxes(var params: Cardinal);
  var i,len: Integer;
      TC: TCheckbox;
  begin
    params:= 0; // Alle Bits löschen
    len:= (sizeof(params) * 8) - 1; // Anzahl der Bits -1
    for i:= 0 to len do
    begin
      TC:= FindComponent('CheckBox' + IntToStr(i+1)) as TCheckbox; //checkbox1 ... checkbox32
      If (TC <> NIL) and TC.checked Then Params:= Params or (1 shl i);
    end;
  end;

Die Performance ist dabei kein Problem, da das immer nur beim Öffnen bzw. Schließen des Dialogs ausgeführt wird. Wie sähe denn die Alternative z. B. hiermit aus:

Zitat von haentschman:

TObjectDictionary<string, TButton> oder TDictionary<string, TButton>

Das Dictionary müsste doch erstmal erzeugt und befüllt werden. Wo läge da der Vorteil?

Gruß LP

Zitat:

Das Dictionary müsste doch erstmal erzeugt und befüllt werden. Wo läge da der Vorteil?

Wenn man später doch mal wieder über die Komponenten gehen möchte, dann erfolgt das mit dem Dictionary wirklich nur über die gewünschten Komponenten. Keine nil Abfragen und schleifen mehr.

Zitat von DieDolly:

Wenn man später doch mal wieder über die Komponenten gehen möchte, dann erfolgt das mit dem Dictionary wirklich nur über die gewünschten Komponenten. Keine nil Abfragen und schleifen mehr.

Das tut FindComponent auch gar nicht (mehr). Beim ersten Aufruf wird eine nach Namen sortierte Liste aller Komponenten erzeugt, auf die dann über eine binäre Suche zugegriffen wird. Das mag zwar noch marginal langsamer sein, als ein Zugriff in einem TDictionary, aber das schlägt vermutlich gar nicht ins Gewicht. Man spart sich eben den zusätzlichen Verwaltungsaufwand.

Also ich hab jetzt erstmal FindComponent eingebaut.
Sinvoll eingesetzt konnte die Größe des gesamten Quelltextes meines Projektes prompt um 25 % verkleinert werden

Danke nochmal an alle - Daniel