Komponenten dynamisch aufrufen

[Patrick]

Hallo, ich hätte da mal wieder eine Frage...
Wie kann ich Komponenten (TEdit, TButton) dynamisch aufrufen, sprich: Ich wähle eine Zahl und Delphi soll die Komponente mit dieser Zahl aufrufen...
(1 => Edit1.Text, 2 => Edit2.Text,...)
Ich könnte zwar "Case of" benutzen, aber der ganze Quellcode wird dann zu lang und unübersichtlich...

[Funky-Sepp]

Hi Patrick!

da gibt es die Funktion FindComponent

z. B.:

Delphi-Quellcode:

procedure Test;
var x : integer;
begin

  for x := 1 to 10 do begin
    
    ( FindComponent( 'Edit' + IntToStr( x ) )  as TEdit ).Text
  
  end;

end;

[Patrick]

Danke, ich bin für jede Lösung offen, aber gibt es da nicht eine direktere Weise. Ich will die Komponente ja nicht finden, ich weis ja, dass sie da ist, ich will sie eigentlich direkt ansprechen... Oder gibt es da keine andere Lösung für???

[Nalincah]

So

4 Buttons rein und ein Edit. Da einfach ne Zahl reinschreiben und das ausführen:

Delphi-Quellcode:

  for i := 0 to Form1.ComponentCount - 1 do
  begin
    if Form1.Components[i] is TButton then
    begin
      if TButton(Form1.Components[i]).Caption = 'Button' + Edit1.Text then
      begin
        TButton(Form1.Components[i]).SetFocus;
      end;
    end;
  end;

[Funky-Sepp]

Ich hab das ja auch anders gemeint.

Ich hab z. B. 10 Editfelder:
Edit1
Edit2
Edit3
...
Edit10

dann eine SpinEdit
und einen Button:

Delphi-Quellcode:

procedure TForm1.ButtonClick( Sender : TObject );
begin
  ShowMessage( ( FindComponent( 'Edit' + IntToStr( SpinEdit.Value ) ) as TEdit ).Text );
end;

So jetzt gebe ich im Edit3.Text = 'Hallo' ein
und in der SpinEdit.Value = 3
drücke auf den Button
und er gibt mir den Text der in Edit3 hinterlegt ist als message aus.

[Nalincah]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i :Integer;
begin
  for i := 0 to 9 do
  begin
    if Form1.Components[i] is TEdit then
    begin
      if TEdit(Form1.Components[i]).Name = 'Edit' + SpinEdit1.Text then
      begin
        ShowMessage(TEdit(Form1.Components[i]).Text);
      end;
    end;
  end;
end;

[Funky-Sepp]

Zitat:

Zitat von General2003

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i :Integer;
begin
  for i := 0 to 9 do
  begin
    if Form1.Components[i] is TEdit then
    begin
      if TEdit(Form1.Components[i]).Name = 'Edit' + SpinEdit1.Text then
      begin
        ShowMessage(TEdit(Form1.Components[i]).Text);
      end;
    end;
  end;
end;

macht FindComponent nicht das gleiche?? :gruebel:

Müsste doch so viel einfacher gehen und man sparrt sich ein haufen Code?

[Patrick]

Vielen Dank erstmal, ihr habt mir weiter geholfen, ich werde mir jetzt eine Lösung herauspicken, die am Besten auf mein Problem passt!

[Ricane]

Diese FindComponent - Geschichte ist genau das was ich brauche um mein Problem zu lösen, aber sie will nicht funzen...

Mein Problem: Ich will ein Bild von einem TImage in ein anderes kopieren ...

Dieser Happen Quellcode sorgt für das Problem: Das Problem ist "Ungültige Typenumwandlung"!

Delphi-Quellcode:

        (FindComponent('imgStein' + IntToStr(I)) As
          TImage).Picture.Bitmap.Assign((FindComponent('imgRoh' +
          IntToStr(AktNummer)) As TImage).Picture.Bitmap);

Das hier funktioniert ....

Delphi-Quellcode:

        imgStein1.Picture.Bitmap.Assign(imgRoh9.Picture.Bitmap);

... es liegt also nicht daran ist, das er die Bilder nicht kopieren will....

Hat jemand eine Idee?!



Beste Grüsse,

Ricane

[scp]

@Ricane
Das scheint nicht an FindComponent() zu liegen, denn bei mir gehts. Habe zwei TImage mit deinen Namen auf der Form erstellt und es deine Methode verwendet.

Deshalb mach bitte einen neuen Thread für die Frage auf, sonst gibts hier nur Chaos :-)

[Ricane]

Das Problem habe ich gelöst!

Lag aber an meiner Dummheit, da eines der Images ein Label war und daher klappte es natürlich nicht... :wall: :wall: :wall:


Beste Grüsse,

Ricane