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.

markieren

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:

markieren

Code:

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

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

markieren

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?

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".

zusammenfalten · markieren

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

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

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

markieren

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

Herzlich Wilkommen erstmal

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.

markieren

Delphi-Quellcode:

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

Notfalls mußt du dann noch eine Typenkonvertierung vornehmen:

markieren

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);

Vielen dank für die viele Hilfe und das um diese Urzeit
Button[i] := TButtonFindComponent('Button' + IntToStr(i))); Das Funktioniert.