Button mit Variable ansteuern

[rob60]

Hi bin mir sicher dass so was ändliches schon gefragt wurde aber ich find trozdem nichts also
meine Frage:


for i := 1 to 20 do
begin
tbutton[i].caption := '';

end;


So das problem wie kann ich klarmachen dass ich button1.caption , button2.caption ... ''
zuweisen will dass funktioniert nämlich nicht, wen wunderts ;-) ?

[s.h.a.r.k]

FindComponent ist das Stichwort.

[DeddyH]

Oder selbst verwalten (Array, TObjectList, TComponentList, ...)

[rob60]

danke für die superschnelle antwort aber mein turbodelphi scheint das wort nicht zu kennen "undefinierter bezeichner Findcomponent"

gibts das erst später?

[DeddyH]

Ist die Unit Classes eingebunden?

[rob60]

jop sie is eingebunden

[DeddyH]

Komisch. Ich weiß jetzt nicht, seit wann es die Funktion gibt, aber so neu wird sie nicht sein. Hast Du Dich auch nicht vertippt?

[s.h.a.r.k]

Also

Delphi-Quellcode:

Form1.FindComponent('xyz')

müsste schon gehen!? :gruebel:

[DeddyH]

Wenn das in einer Methode von TForm1 steht, dann aber lieber Self nehmen. Wobei die Array-/Listenlösung eh performanter ist, zumindest, wenn die Liste öfter durchlaufen werden soll.

[rob60]

Dass nicht aber villeicht falsche syntax stimmt das so tbutton(findcomponent('button1').caption := '');

[implementation]

Zitat:

Zitat von rob60 (Beitrag 1066671)

Dass nicht aber villeicht falsche syntax stimmt das so tbutton(findcomponent('button1').caption := '');

Nope,

Delphi-Quellcode:

TButton(FindComponent('button1')).Caption := '';

.

Quellcode schließt man übrigens in [delphi]-Tags ein :wink:

[DeddyH]

Delphi-Quellcode:

var Button: TButton;
...
Button := FindComponent('Button1') as TButton;
if Assigned(Button) then
  Button.Caption := '';

[s.h.a.r.k]

Naja, nach dem ersten Aufruf legt FindComponent (von TComponent) eine interne Liste der Controls an:

Delphi-Quellcode:

{ Fill the sorted list (and sort it) }
FSortedComponents := TList.Create;
FSortedComponents.Count := FComponents.Count;
for I := 0 to FComponents.Count - 1 do
  FSortedComponents[I] := FComponents[I];

FSortedComponents.SortList(
  function(Item1, Item2: Pointer): Integer
  begin
    Result := CompareText(TComponent(Item1).Name, TComponent(Item2).Name);
  end);

Hab jetzt nur nicht näher geschaut, ob diese Liste beim Hinzufügen und Löschen von Komponenten auch geupdated wird -- aber ich gehe mal stark davon aus. Von daher sollte das von der Performance her auch noch okay sein.

BTW: Darf ich SourceCode aus der VCL hier einfach posten?! -> Copyright!

[Bummi]

Delphi-Quellcode:

TButton(findcomponent('button' + IntToStr(i))).caption := IntToStr(i);

[DeddyH]

Tatsächlich, das sieht hier unter Delphi 2007 zwar etwas anders aus, aber diese Liste wird auch bei mir erzeugt. Das war IIRC früher aber mal anders, da wurde bei jedem Aufruf das komplette Components-Array durchlaufen.

[edit] @implementation, Bummi: was ist, wenn die Komponente nicht gefunden wird? Dann sollte es beim Zugriff auf Caption knallen. [/edit]

[rob60]

killllllll mich ,danke

[Bummi]

@DeddyH
man kann das schon kapseln, Du möchtest sowas

Delphi-Quellcode:

var
B:TButton;
begin
 b := TButton(FindComponent('Button' + IntToStr(i)));
 if Assigned(B) then
    begin
       //was auch immer
    end;

aber wenn ich weiß was ich tue spare ich mir das mitunter ...

[DeddyH]

Das entspricht jetzt ziemlich meinem eigenen Code aus #12 ;) Und ich denke mir immer: sicher ist sicher, die eine Assigned-Abfrage tut keinem weh, macht das Programm aber stabiler.

[rob60]

Ach noch ne kleine info ich habs jetzt findcomponent darf ich ja nur in einer procedur der form1 benutzen ich hab aber meine eigene proc muss die jetzt halt ersetzen

[Sir Rufo]

Zitat:

Zitat von rob60 (Beitrag 1066685)

Ach noch ne kleine info ich habs jetzt findcomponent darf ich ja nur in einer procedur der form1 benutzen ich hab aber meine eigene proc muss die jetzt halt ersetzen

Das stimmt zwar so nicht ... aber du hast recht, dass man FindComponent nicht einfach so aufrufen kann.

Denn es handelt sich hierbei um eine Methode von TForm

Delphi-Quellcode:

procedure MachWas( Form : TForm );
  begin
    Form.FindComponent( ... );
  end;

// Aufruf z.B. so

procedure TForm1.EineMethode;
  begin
    MachWas( Self );  // Self ist die Referenz auf die aktuelle Instanz
  end;

[s.h.a.r.k]

Zitat:

Zitat von rob60 (Beitrag 1066685)

Ach noch ne kleine info ich habs jetzt findcomponent darf ich ja nur in einer procedur der form1 benutzen ich hab aber meine eigene proc muss die jetzt halt ersetzen

Ist jetzt nicht böse gemeint, daher auch nicht falsch verstehen, aber Punkt und Komma gibt es nicht ohne Grund. Ebenso haben Satzzeichen auch einen gewissen Zweck. Du würdest uns das Leben durchaus erleichtern :thumb: Danke.

[Bummi]

oder universeller:

Delphi-Quellcode:

Function MyFindComponent( Component : TComponent ):TComponent;

[mkinzler]

Nein

Delphi-Quellcode:

(findcomponent('button1') as TButton).caption := '';