Mehrfachabarbeitung von Komponente

[TeronG]

Hallo

Ist es möglich mehrere Komponenten auf einmal in der gleichen Art zu behandeln ??

z.B bei AbLED1 - 7 den zustand von checked abzufragen :gruebel:

Delphi-Quellcode:

procedure mainform.xyz
begin
  AbLED1.Checked := Leuchte[1];
  AbLED2.Checked := Leuchte[2];
  AbLED3.Checked := Leuchte[3];
  AbLED4.Checked := Leuchte[4];
end;

Ich kann zwar mit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I:=0 to ComponentCount-1 do
    if Components[I] is TEdit then
      (Components[i] as TEdit).Text:='Alle Edits ändern';
end;

ALLE Component's eines Typ's ändern aber nicht NUR einen Teil?

Habt ihr da ne Idee? :gruebel:

[alcaeus]

Setz den String dynamisch zusammen und finde die Kompo mit FindComponent

Greetz
alcaeus

PS: Das gabs hier mittlerweile schon so oft...wozu gibts eigentlich die Suche? :roll:

[arbu man]

Delphi-Quellcode:

var i:integer;
begin
i:=1;
for i:=i to {wie viel auch immer} do
  (FindComponent (Edit+inttostr(i)) as TEdit).Text:='was weiss ich';
end;

[ibp]

ich würde nicht mit findcomponent arbeiten, da langsam, sondern mit einem array of deinecomponente!

[TeronG]

Zitat:

Zitat von alcaeus

PS: Das gabs hier mittlerweile schon so oft...wozu gibts eigentlich die Suche? :roll:

Jou :oops: dacht ich mir schon fast ... hab aber diesmal beim suchem nix gefunden .. :gruebel:

Dann werd ich mal FindCombo und Array testen ^^
Thanks 4 Help auch wenn ich der x-te war der das gefragt hat :-D