Label korrekt zur Laufzeit erzeugen?

[Sir Rufo]

Zitat von AlexII:

Mit MyLabel.Free; verschwindet mein ganzes Programm.

Das ist so schon korrekt, warum das würde jetzt zu weit führen ... kann man aber hier im Forum suchen

BTW:

Wenn du die Caption von einem Label mit '' befüllst, dann sieht keine S** ob da ein Label ist oder nicht.

Warum willst du also so eine Erzeugungs- und Vernichtungsorgie starten?

Meinetwegen setze Visible vom Label auf true oder false ... so ist das Murks

[AlexII]

Weil anstelle dieses Labels ein anderes Label erstellt werden soll, mit anderen Infos.

[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

[Sir Rufo]

Zitat von AlexII:

Weil anstelle dieses Labels ein anderes Label erstellt werden soll, mit anderen Infos.

Nun wenn es dich glücklich macht ... aber leg dir mal eine kleine Test-Projekt an und spiele ein wenig mit dem Visible herum

[AlexII]

Thx... läuft alles!

[Sir Rufo]

Ich würde ja ein Label Test1 fest anlegen und dann sieht der Code wie folgt aus:

Delphi-Quellcode:

// Gibt es einen Autor?
if tb.FieldAsString( tb.FieldIndex['aname'] ) <> '' then
  Test1.Caption := tb.FieldAsString( tb.FieldIndex['aname'] )
else
  Test1.Caption := 'Some other information with a DRY KISS';

[Furtbichler]

Bzw. sich gleich darauf besinnen, das das Label eine bestimmte Information anzeigen soll. Nämlich den Namen des Autors, wenn der Name angegeben ist, bzw. etwas anderes, wenn der Autor nicht angegeben ist:

Delphi-Quellcode:

MyLabel.Caption := AuthorInfo(Tb);
...

Function AuthorInfo (aDataSet : TDataset);
Begin
  Result := aDataSet['aname'];
  if Result='' then
    Result := 'Something else';
End;

Alternativ (und vermutlich noch besser) wäre es, dem Dataset ein berechnetes Feld 'AuthorInfo' zu spendieren. Dann ist die Logik dort, wo sie vermutlich hingehört und man kann diese info überall anzeigen.

[Sir Rufo]

Zitat von AlexII:

Thx... läuft alles!

Und was war jetzt der Fehler?

[AlexII]

Syntaktischer Natur!