Heutige mit unabhängigem Datum vergleichen

[Binärbaum]

Das liegt daran, dass Delete() eine Prozedur ist und keine Funktion und somit hat Delete() auch keinen Rückgabewert.
Man könnte den Quelltext umschreiben:

Delphi-Quellcode:

Jahr :=  DateToStr(Now);
Jahr2 :=  DateToStr(Now);
Delete(Jahr2, 1, 6);
  if (DateToStr(Now) = '05.06' + Jahr2) then
    begin
    .
    .
    .

(Jahr2 ist ein String.)

MfG
Binärbaum