Button mit Variable ansteuern

[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 Form1.FindComponent('xyz') müsste schon gehen!?

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

[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!

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

[rob60]

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

[implementation]

Zitat von rob60:

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

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

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