Label korrekt zur Laufzeit erzeugen?

[Sir Rufo]

Zitat von AlexII:

Hm... hab ich so gemacht, und wenn es keinen Autor gibt wird das ganze Programm unsichtbar, es verschwindet irgendwohin, muss es dann über Task-Manager als Prozess beenden.

Glaube ich nicht ...

erst kommt

Delphi-Quellcode:

        // Label suchen
        MyLabel := TLabel( FindComponent( 'test1' ) );

und dann

Delphi-Quellcode:

        // Gibt es einen Autor?
        if tb.FieldAsString( tb.FieldIndex['aname'] ) <> '' then
          begin
            ...
          end
       else
         // kein Autor, kein Label
         MyLabel.Free;

Bei dir sieht es wohl noch so aus

Delphi-Quellcode:

        // Gibt es einen Autor?
        if tb.FieldAsString( tb.FieldIndex['aname'] ) <> '' then
          begin
            // Label suchen
            MyLabel := TLabel( FindComponent( 'test1' ) );
            ...
          end
       else
         // kein Autor, kein Label
         MyLabel.Free;

gelle