Label zur laufzeit erzeugen

[Robert Marquardt]

Der Gebrauch der for-Schleife sollte erlernt werden.

Delphi-Quellcode:

procedure TFMain.FormCreate(Sender: TObject);
var
zaehlen:integer;
begin
  // Hier wird "zaehlen" nicht initialisiert und enthaelt daher einen Zufallswert
  while zaehlen <= 10 do
  begin
     Ldatum_out[zaehlen] := TLabel.Create(fMain);
     Ldatum_out[zaehlen].Parent := fmain;

     LHandling_out[zaehlen] := TLabel.Create(fMain);
     LHandling_out[zaehlen].Parent := fmain;

     Lcodeletter_out[zaehlen] := TLabel.Create(fMain);
     Lcodeletter_out[zaehlen].Parent := fmain;

     Lreturncode_out[zaehlen] := TLabel.Create(fMain);
     Lreturncode_out[zaehlen].Parent := fmain;

     zaehlen := zaehlen +1;
  end;
end;

Besser

Delphi-Quellcode:

procedure TFMain.FormCreate(Sender: TObject);
var
zaehlen:integer;
begin
  for zaehlen := 1 to 10 do
  begin
     Ldatum_out[zaehlen] := TLabel.Create(fMain);
     Ldatum_out[zaehlen].Parent := fmain;

     LHandling_out[zaehlen] := TLabel.Create(fMain);
     LHandling_out[zaehlen].Parent := fmain;

     Lcodeletter_out[zaehlen] := TLabel.Create(fMain);
     Lcodeletter_out[zaehlen].Parent := fmain;

     Lreturncode_out[zaehlen] := TLabel.Create(fMain);
     Lreturncode_out[zaehlen].Parent := fmain;
  end;
end;