Button nach einer bestimmten Zeit deaktivieren

[Darlo]

Zum Beispiel im FormCreate auf Datum prüfen und ggf. Button deaktivieren.

Delphi-Quellcode:

if (now >= (strtodate('10.02.2016')) then
  begin
    showmessage('Funktion wurde deaktiviert weil...');
    myButton.enabled := false;
  end;

[Kruppi]

Delphi-Quellcode:

procedure TForm5.FormShow(Sender: TObject);
begin
 if ( Datetimetostr(NOW) >ExpirationDate) then 
 Begin
  Showmessage('Funktioniert nicht mehr');
  close;
 End;
end;

Danke ich hab es jetzt so gelöst

hab es auch etwas geändert dass also nicht ein button geschlossen wird sondern das ganze formular

[Darlo]

datetimetostr? Vergleichst Du da Strings mit >??

[himitsu]

Zitat von Darlo:

datetimetostr? Vergleichst Du da Strings mit >??

Einfach Windows auf eine andere Sprache einstellen und schon funktioniert es nicht mehr.

[Sir Rufo]

Zitat von himitsu:

Zitat von Darlo:

datetimetostr? Vergleichst Du da Strings mit >??

Einfach Windows auf eine andere Sprache einstellen und schon funktioniert es nicht mehr.

Die Sprache ist hier das geringste Problem.

Selbst wenn sich diese nicht ändert haben wir hier folgendes Verhalten:

Das Formular kann immer an dem 01. - 10. Tag eines beliebigen Monats geöffnet werden. An allen anderen Tagen eines beliebigen Monats wird es einfach geschlossen.

Also z.B. auch am 01.03.2016.
Dafür aber nicht am 11.01.2016

Ob das so gewünscht ist?

[hoika]

Hallo,
ich würde hier knallhart die TDateTime mit > vergleichen.
Es wird ja nicht auf = abgefragt.

Was anderes, was habt ihr gegen Strings und Datumsvergleiche, wenn man es richtig macht,
also mit FormatDateTime('yyyy.mm.dd', TDateTime_Wert) ?

Heiko

[Darlo]

Zitat von hoika:

Was anderes, was habt ihr gegen Strings und Datumsvergleiche, wenn man es richtig macht,
also mit FormatDateTime('yyyy.mm.dd', TDateTime_Wert) ?
Heiko

Jedem gerne das Seine, aber um Datumswerte zu vergleichen diese in ein String formatieren und dann vergleichen halte ich für nicht optimal...