procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word);
Hier würde ich lieber
out
-Parameter verwenden, da der ursprüngliche Wert von Year, Month und Day keine Rolle spielt.
var
= Ein- und Ausgabeparameter
out
= reiner Ausgabeparameter