mehrere Elemente in einer Schleife bearbeiten

[Wilder]

Hy!

ich würde gerne in einer Prozedur die Eigenschaften vieler Elemente hintereinanderweg ändern. Das Ganze stelle ich mir folgendermaßen vor:

Delphi-Quellcode:

for i := 1 to 10 do
Begin
   Button[i].enabled := true;
end;

Damit hätte ich 10 Buttons aktiviert mit 4 Quellzeilen, anstatt jedesmal den gesamten Seremon zu kopieren.
Ich bin der Ansicht, daß das irgendwie gehen müsste... wenn ich nur wüsste wie...

[hummer]

So müßte es gehen.
Zuerst die ShellAPI einbinden.

Delphi-Quellcode:

var i : integer;

for i := 1 to s do //s Anzahl der Buttons
  TButton(FindComponent('Button' + IntToStr(i))).Enabled := true;

Jetzt werden die Button mit dem Namen Button1 bis Buttons auf Enabled true gesetzt.

[Wilder]

Danke, hat hingehauen

[hummer]

Und sind sogar nur 2 Zeilen.

[Spectre]

hey..danke für den code! älteres topic aber ich muss es grad mal ausbuddeln
ich habe allerdings das problem das meine objekte keine zahlen AM ENDE haben, sondern so aussehen:

Hotspots[3], Hotspots[4], Hotspots[5], Hotspots[6]

ich habe schwierigkeiten das anzupassen, hat jemand nen tip wie ich den code ändern muss :S ?

[mkinzler]

Einfach Hotspots[i]?

[DeddyH]

Das scheint ja ein Array zu sein, also müsste das auch so gehen:

Delphi-Quellcode:

for i := Low(Hotspots) to High(Hotspots) do
  MachWasMit(Hotspots[i]);

[Spectre]

Code:

procedure Tworldmapsource.FormCreate(Sender: TObject);
var i : integer;
begin
for i := 1 to 48 do
  THotSpot(FindComponent('Hotspots[i]')).HoverColor := clwhite;
hsiafrika.Loaded;
end;

complilieren kann ich den code so zwar, aber ich bekomme eine zugriffsverletzung wenn ich versuche zu starten

[p80286]

Hast Du es einmal mit dem Vorschlag von DeddyH versucht
for i:=low() to high() Gruß
K-H

[Spectre]

jop...the same..

Code:

procedure Tworldmapsource.FormCreate(Sender: TObject);
var i : integer;
begin
for i:=low(1) to high(5) do
  THotSpot(FindComponent('Hotspots[i]')).HoverColor := clwhite;

end;

die zugriffsverletzung kommt in der FindComponent zeile.