subroutine laeuft nur auf dem entwickler-pc

[himitsu]

Willkommen,

war dieses TDateTimePicker.Date nicht in einigen VCL-Versionen "defekt" und enthält auch die Uhrzeit?
Prüf mal, ob bei dir im .Date wirklich nur das Datum drin steckt, ansonsten ist der Vegleich von der Tageszeit abhängig.

Notfall einfach nochmal ein DateOf oder Trunc drumrum machen.

Zitat:

Delphi-Quellcode:

    if led1.Text = '' then
    begin
      led1.ReadOnly := false;
      led1.Color := clWindow;
    end
    else
    begin
      led1.ReadOnly := true;
      led1.Color := clInfoBk;
    end;

Schade, daß du kein Anfänger mehr bist, sonst hätte ich noch ein paar weitere Frage zum Code gestellt.

Wieso steckt dieser Code dann nicht in einer Procedur, wenn er doch "identich" mehrfach vorkommt?

Oder, warum kommt man nicht wenigstens auf die Idee, ihn zusammenzufassen, wenn man ihn dennoch mehrfach schreiben will?

Delphi-Quellcode:

    // 20%
    led1.ReadOnly := led1.Text <> '';
    led1.Color := IfThen(led1.Text = '', clWindow, clInfoBk);

    // oder zumindestens 50%
    led1.ReadOnly := led1.Text <> '';
    if led1.ReadOnly then
      led1.Color := clInfoBk
    else
      led1.Color := clWindow;

PPS:
Ich würde auch eher die versändlicheren Konstanten empfehlen, also = LessThanValue oder < EqualsValue , anstatt des < 0 .