Delphi - Code Hilfe

[xZise]

Ne Du musst ja nur wissen, ob es ein "LeapYear" ist

Delphi-Quellcode:

if IsLeapYear(...) then
  lblLeapYear.Caption := 'Das Jahr ' + IntToStr(...) + ' ist ein Schaltjahr'
else
  lblLeapYear.Caption := 'Das Jahr ' + IntToStr(...) + ' ist kein Schaltjahr'

Es wäre auch so möglich:

Delphi-Quellcode:

var
  modifier : string;

if IsLeapYear(...) then
  modifier  := 'ein'
else
  modifier := 'kein'

lblLeapYear.Caption := 'Das Jahr ' + IntToStr(...) + ' ist ' + modifier + ' Schaltjahr'