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

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?

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

[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 von alcaeus:

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

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

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