Unterschiedliche viele Labels nutzen um einen Wert zu zeigen

[Hallo_Thomas]

Und zwar habe wollte ich einige Felder mit ein paar Werten ansteuern , wenn dieser Wert auf diesem Label das Maximum erreicht hat sollte er sich teilen und sich dann auf ein 2 Label ausdehnen und wenn da das Maximum erreicht ist auf ein3 und viertes.


So ungefähr hab ich mir den Maximalwert vorgestellt

If Eins > 150 Then Eins := 150;
Hab aber keinen Plan wie dann automatisch ein 2.Labelgesteuert werden kann um den Wert zu teilen.


Hier noch mal ein kleiner auszug aus den Programm

Delphi-Quellcode:

 for x := 1 to 7 do  //////////Berechnen der einzelnen Wertigkeiten
      begin
        if Counter[x]-PermMini>=0 Then
      begin
        BeWert:=Counter[x]-PermMini+1;
        Wertigkeit[x]:=(WertMini shl (BeWert-1));
      end else
        Wertigkeit[x]:=0
     end;
     for x := 8 to 11 do
      begin
        if Counter[x]-PermMini27>=0 Then
      begin
        BeWert:=Counter[x]-PermMini27+1;
        Wertigkeit[x]:=(WertMini shl (BeWert-1));
      end else
        Wertigkeit[x]:=0
     end;
     begin
      Eins  :=Wertigkeit[1];
      Zwei  :=Wertigkeit[2]+Wertigkeit[8]+Wertigkeit[10];
      Drei  :=Wertigkeit[3]+Wertigkeit[9]+Wertigkeit[11];
      Vier  :=Wertigkeit[4];
      Fuenf :=Wertigkeit[5]+Wertigkeit[9]+Wertigkeit[10];
      Sechs :=Wertigkeit[6]+Wertigkeit[8]+Wertigkeit[11];
      Sieben:=Wertigkeit[7];///////////Die Werte eins bis sieben benötigen dieses teilbare Maximum
     end;

     begin if eins<=0 Then /////////Anzeige der Wertigkeiten
      begin
        Image1.Picture := nil;
        Label1.Caption := ''
      end else
      begin
        Label1.Caption:=IntToStr(Eins);
        Image1.Picture.Assign(blau);
      end;
     end;