mehrere Progressbars in Schleife aktualisieren

[hilfmir]

ich möchte in einem Messprogramm 8 Kanäle eines USB-Interface auslesen und die Werte in 8 Progressbars ausgeben.

lassen sich die Progressbars in einer Schleife ähnlich wie ein Array ansprechen: also progressbar[x] usw. oder muß ich die Schleife weglassen und den langen Weg über progressbar1, progressbar2, progressbar3 usw. gehen um die Werte zu ändern?

ich möchte ganz einfach Quelltext sparen.

[Helmi]

Hallo,

such mal nach FindComponent hier im Forum

[chaosben]

Oder der einfache (aber nicht so elegante) Weg:

Delphi-Quellcode:

var 
  PBs : array[0..7] of TProgressBar;
  idx : Integer;
begin
  PBs[0] := Progressbar1;
  PBs[1] := Progressbar2;
  //...

  for idx := Low(PBs) to High(PBs) do
    PBs[idx].Position := 5;
end;

[Helmi]

Zitat von chaosben:

Oder der einfache (aber nicht so elegante) Weg:

Delphi-Quellcode:

var 
  PBs : array[0..7] of TProgressBar;
  idx : Integer;
begin
  PBs[0] := Progressbar1;
  PBs[1] := Progressbar2;
  //...

  for idx := Low(PBs) to High(PBs) do
    PBs[idx].Position := 5;
end;

Aber auch das Füllen des Arrays kann man mittels FindComponent vereinfachen, anstatt 9 mal die gleiche Zeile (mit unterschiedlicher ProgressBar-Nummer) zu schreiben

[hilfmir]

Danke. Mit FindComponent geht's problemlos

[alzaimar]

Zitat von Helmi:

Aber auch das Füllen des Arrays kann man mittels FindComponent vereinfachen, anstatt 9 mal die gleiche Zeile (mit unterschiedlicher ProgressBar-Nummer) zu schreiben

Nun ja, ich pflege meinen Controls aussagekräftige Namen zu geben und da bringt FindComponent nicht viel. Desweiteren ist es fraglich, ob eine Lösung mit FindComponent nun so viel lesbar ist.

Und robust ist die Verwendung von FindComponent garantiert nicht:Was passiert wenn man den Komponenten andere Namen spendiert? Mit FindComponent erzeugt man böse Laufzeitfehler, ohne Compilerfehler, die sich leicht beheben lassen.

Alles in Allem kein Grund, FindComponent zu hypen.