Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
8. Feb 2013
Und was war jetzt der Fehler?
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
7. Feb 2013
Ich würde ja ein Label Test1 fest anlegen und dann sieht der Code wie folgt aus:
// Gibt es einen Autor?
if tb.FieldAsString( tb.FieldIndex ) <> '' then
Test1.Caption := tb.FieldAsString( tb.FieldIndex )
else
Test1.Caption := 'Some other information with a DRY KISS';
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
7. Feb 2013
Nun wenn es dich glücklich macht ... aber leg dir mal eine kleine Test-Projekt an und spiele ein wenig mit dem Visible herum ;)
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
7. Feb 2013
Glaube ich nicht ...
erst kommt
// Label suchen
MyLabel := TLabel( FindComponent( 'test1' ) );
und dann
// Gibt es einen Autor?
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
7. Feb 2013
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
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
7. Feb 2013
Also ein wenig nachdenken ist ja manchmal nicht schlecht ... und etwas mehr Information, wie du erkennst, dass es da was nicht mehr geben soll ...
aber ich tippe mal darauf
DetailsTitleLabel.Caption := tb.FieldAsString( tb.FieldIndex );
// Label suchen
MyLabel := TLabel( FindComponent( 'test1' ) );
// Gibt es einen Autor?
if tb.FieldAsString(...
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
7. Feb 2013
Ähhm, es so schreiben, dass diese Eigenschaften immer gesetzt werden, also nicht in den if ... then Teil?
DetailsTitleLabel.Caption := tb.FieldAsString( tb.FieldIndex );
if tb.FieldAsString( tb.FieldIndex ) <> '' then
begin
// Label suchen
MyLabel := TLabel( FindComponent( 'test1' ) );
// Wenn kein Label gefunden wurde
if...
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
7. Feb 2013
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:
DetailsTitleLabel.Caption := tb.FieldAsString( tb.FieldIndex );
if tb.FieldAsString( tb.FieldIndex ) <> '' then
begin
// Label suchen
MyLabel := TLabel(...