Aufruf von mehreren fast gleichnamigen Methoden (Verkürzen?)

[sarte]

Hallo Leute,
kann man das irgendwie verkürzen?

Delphi-Quellcode:

  Button4.Visible := true;
  Button5.Visible := true;
  Button6.Visible := true;
  Button7.Visible := true;
  Button8.Visible := true;

Mit einer For-Schleife geht es ja leider nicht -.-

Danke,
Sarte

[mkinzler]

Standard-Antwort: FindComponent()

[blink182]

genau

Delphi-Quellcode:

var i:integer

for i:=4 to 8 do 
TButton(FindComponent('Button'+inttostr(i))).Visible:=true;

[sarte]

vielen Dank

[Hawkeye219]

Hallo,

so geht es auch:

Delphi-Quellcode:

procedure ShowControls (const aControls: array of TControl;  
                        const aVisible: Boolean = True);
var
  i : Integer;
begin
  for i := 0 to High(aControls) do
    aControls[i].Visible := aVisible;
end;

// Anwendung:

ShowControls ([Button4, Button5, Edit1, Edit3, Panel42]);

Handelt es sich um eine relativ kleine Anzahl von Controls, stellt sich natürlich die Frage, ob der Originalcode nicht lesbarer ist. Vielleicht lassen sich ja auch alle Elemente auf einem Panel platzieren. Dann genügt schon das Ein-/Ausblenden dieses Panels.

Gruß Hawkeye

[DeddyH]

Das ist zumindest besser, als in einer Schleife FindComponent aufzurufen (da wird nämlich intern wiederum eine Schleife durchlaufen).

[alzaimar]

Ungeachtet der Tatsache, das die Bezeichnung Button1, Button2 etc. für Schaltflächen nicht gerade aussagekräftig ist, wird die Lösung mittels FindControl genau dann zu unerwarteten Ergebnissen führen, wenn man auf die an sich sinnige Idee kommt, den Knöppels sinnvolle Namen zu geben.

Dagegen ist die Lösung mit der Prozedur besser, da hier wenigstens der Compiler meckert, wenn die Buttons getauft werden.

Mir persönlich gefällt allerdings die Lösung mit 4 Zeilen besser, da es einfach übersichtlicher ist (sofern die Buttons schöne Namen haben). Ist aber Geschmackssache.