TButton über Laufvariable?

[Jerk]

Hallo erstmal an alle und entschuldigung falls ich eine falsche Kategorie hier im Forum erwischt habe.

Ich möchte gerne Objekte,z.b. Buttons über eine Laufvariable ansprechen können, also wenn ich z.b. 10 buttons habe und diese Button1...Button10 heißen.

Code:

  Button: array[1..10] of TButton;

...

for i:=1 to 10 do
 begin
  Button[i].caption:='Hello world i am number: '+inttostr(i);
 end;

Das ganze funktioniert wenn ich das Array praktisch einzeln fülle also:

Code:

Button[1]:=Button1;
Button[2]:=Button2;
...

Was ich aber viel lieber machen möchte ist sowas in der Art:

Code:

for i:=1 to 10 do
 begin
  Button[i]:=Button+inttostr(i);
 end;

Das ist kürzer vorallem wenn ich mehr als 10 Buttons habe nur funktioniert es auf diese weise nicht da wohl inkompatible Typen vorliegen. Also wie muss ich die Laufvariable I umwandeln damit das funktioniert?

[megaGOLDdeluxe]

Du kannst z.b. wie folgt auf die Buttons zugreiffen. Da diese ja auf einem Form liegen, kannst Du über dieses auf die Buttons zugreiffem, da das Form "sehen kann, was auf ihm liegt".

Delphi-Quellcode:

procedure TForm1.RenameButtons;
var
  iRunner: Integer;
begin
  for iRunner := 0 to Form1.ComponentCount -1 do
  begin
    if Form1.Components[iRunner] is TButton then
    begin
      (Form1.Components[iRunner] as TButton).Caption := 'MeinButton'+IntToStr(iRunner);
    end;
  end;
end;

// Form1.ComponentCount gibt Dir die Anzahl, der auf dem Form liegenden Komponenten zurück.
// Mit Form1.Components[iRunner] is TButton überprüfst Du, ob die aktuelle Komponente ein TButton ist.
// (Form1.Components[iRunner] as TButton) brachst Du, um an die Eigenschaften Deines Buttons zu kommen.

MfG
Pierre

[Sunlight7]

Hallo und herzlich Willkommen in der DP :dp:
Zunächst ein Tip: Nutze die Delphi Tags, wenn Du Code postest :zwinker:

Dein Problem könntest Du zb so lösen:

Delphi-Quellcode:

   var i:Integer;
begin
   For i:=0 to ComponentCount-1 do
      if (Components[i] is TButton) then
         if Copy(TButton(Components[i]).Name, 1, 6)='Button' then
            TButton(Components[i]).Caption:='Hello world i am number: '+Copy(TButton(Components[i]).Name, 7, 2);

Grüßle!

Edit: Wo sind denn schon wieder der rote Kasten geblieben :?

[himitsu]

Herzlich Wilkommen erstmal :angel:

Um eine Komponente über ihren Namen zu finden, kannst du FindComponent verwenden,
dieses verlangt den Namen als String und gibt das passende Objekt zurück.

Delphi-Quellcode:

for i := 1 to 10 do
  Button[i] := FindComponent('Button' + IntToStr(i));

Notfalls mußt du dann noch eine Typenkonvertierung vornehmen:

Delphi-Quellcode:

for i := 1 to 10 do
  Button[i] := TButton(FindComponent('Button' + IntToStr(i)));

// oder

for i := 1 to 10 do
  Button[i] := (FindComponent('Button' + IntToStr(i)) as TButton);

[Jerk]

Vielen dank für die viele Hilfe und das um diese Urzeit :shock:

Delphi-Quellcode:

Button[i] := TButtonFindComponent('Button' + IntToStr(i)));

Das Funktioniert.
:thumb: