Labelindex variabel

[chrigu]

Hallo zusammen... ich möchte eine Art "Lauflicht" mit Labels machen....

Delphi-Quellcode:

var   counter: byte;
....
begin
counter := 1;
Edit[counter].Color := clLime;
end;
....

zum Testen habe ich mal den counter auf 1 gesetzt... Leider ergibt sich eine Fehlermeldung. Warum kann ich nicht statt "Edit1" "Edit[counter]" schreiben, oder besser gesagt, wie kann ich das sonst lösen? Besten Dank für eure Hilfe.
Gruss chrigu

[Luckie]

Entweder du benutzt ein Arry vom Typ TEdit oder du bennnst sie Edit1, Edit2, ... und arbeitest dann mit FindComponent.

[chrigu]

Danke... so funktioniert es wunderbar:

Delphi-Quellcode:

begin
  counter := '1';
  (FindComponent('Edit' + (counter)) as TEdit).Color := clLime;
end;

gruss chrigu