Welchen Sinn soll eine "Komponente" denn da haben ? Bzw. wo ist der Zusatznutzen gegenüber einer function ? Du willst lediglich etwas berechnen.
Das geht auch so :
Delphi-Quellcode:
DayString : array[1..7] of string[15] = (
'Sonntag', 'Montag', 'Dienstag', 'Mittwoch', 'Donnerstag', 'Freitag', 'Samstag');
function Wochentag (d : Tdate) : string;
begin
Wochentag := DayString [DayOfWeek (d)];
end;
Baue in Dein Array eben statt der Wochentage die Feiertage ein und fertig. Die Rechenvorschrift ändert sich dann natürlich auch. Maria Empfängnis ?
P.S.: Das Daystring ist eine Konstante !!
[edit=SirThornberry]Quelltext korrigiert - Mfg, SirThornberry[/edit]