Schreibarbeit sparen

[Bomberbb]

Du könntest Sie zur Laufzeit erstellen:

Delphi-Quellcode:

var
  MyLabels: Array [1..4] of TLabel;
  i: integer;
Begin
  for i:=1 to 4 do 
  Begin 
    MyLabels[i]:=TLabel.Create(MainForm);
    MyLabels[i].parent...
    MyLabels[i].top...
    MyLabels[i].left...
  End;

  MyLabels[Port.PortNr].Laption := Text1;
End;

Eine andere Möglichkeit wäre diese:

Delphi-Quellcode:

var
  MyLabels: Array [1..4] of TLabel;
Begin
  MyLabels[1]:=MainForm.Label3Port1;
  MyLabels[2]:=MainForm.Label3Port2;
  MyLabels[3]:=MainForm.Label3Port3;
  MyLabels[4]:=MainForm.Label3Port4;

  MyLabels[Port.PortNr].Laption := Text1;
End;

Gruß

BBB