Label korrekt zur Laufzeit erzeugen?

[Sir Rufo]

Zitat von Bummi:

Du hast keinen else Zweig für

if TLabel(FindComponent('test1')) = nil then in dem MyLabel gesetzt würde.

Der else Zweig ist ja auch überflüssig ... allerdings ist MyLabel entweder nil oder sogar undefiniert, wenn schon ein Label besteht und dann soll darauf zugegriffen werden

Besser so:

Delphi-Quellcode:

       DetailsTitleLabel.Caption := tb.FieldAsString( tb.FieldIndex['mediatitle'] );

        if tb.FieldAsString( tb.FieldIndex['aname'] ) <> '' then
        begin
          // Label suchen
          MyLabel := TLabel( FindComponent( 'test1' ) );

          // Wenn kein Label gefunden wurde
          if MyLabel = nil then
          begin
            // dann müssen wir uns einen anlegen
            MyLabel := TLabel.Create( Self );
            MyLabel.Parent := MediaGroupBox;
            MyLabel.Name := 'test1';
            MyLabel.WordWrap := True;
            // MyLabel.Caption := tb.FieldAsString( tb.FieldIndex['aname'] );
            MyLabel.Left := 8;
            MyLabel.Top := 178;
            MyLabel.Font.Style:=[fsItalic];
            MyLabel.Width := MediaGroupBox.Width - 15;
          end;

          MyLabel.Caption := tb.FieldAsString( tb.FieldIndex['aname'] );
       end;