Hallo,
wo ist denn das Problem ?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
iCnt : TWochentag;
Nachtwaechter: Array[TWochenTag] of TNachtwaechter;
begin
For iCnt:=Montag to Sonntag do
Nachtwaechter[iCnt].Nachname:='Problem gelöst';
end;