mehrere Progressbars in Schleife aktualisieren

[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