Stundenplan programmiert mit zweidimensionalen Arra's

[frankyboy1974]

hallo,

hab ein wenig geraten, aber vielleicht hilft es

Delphi-Quellcode:

function TFStundenplan.Wochenstunden(Fachname: string): integer;
var stunde:TStunde;
tag:TTage;
begin
// Hier den Quelltext ergänzen
  result:=0;
  for stunde:=0 to 8 do begin
    for tag:=Mo to Fr do begin
      if Stundenplan[stunde,tag] = fachname then inc(result);
    end;
  end;
end;

procedure TFStundenplan.BFachausgabeClick(Sender: TObject);
begin
// Hier den Quelltext ergänzen
  //Wie willst du jetzt auf ein konkretes Fach klicken
  //Wenn du beispielsweise ein Stringgrid zur Anzeige verwenden würdest , 
//könntest du beim Click auf ein konkretes Fach alle Stunden mit demselben Fach mit einem anderen farblichen Hintergrund ausgeben
end;

function TFStundenplan.Klappstunden(Stundenplan: TStundenplan): integer;//Warum übergibst du hier als Parameter den Stundenplan und bei den Fachstunden nicht?
var stunde, stunde1:TStunde;
tag:TTage;
  stundeVorher,StundeNachher:Boolean;
begin
// Hier den Quelltext ergänzen
  result:=0;
  for tag:=Mo to Fr do begin
    stundeVorher:=false;
    StundeNachher:=False;
    for stunde:=0 to 8 do begin
      //Freistunde(Klappstunde)='' ????
      if Stundenplan[stunde,tag] <> '' then stundeVorher:=true else begin
        if stundeVorher then begin
          for stunde1:=stunde+1 to 8 do begin
            if Stundenplan[stunde1,tag] <> '' then begin
              stundeNachher:=true;
              break;
            end;
          end;
          if stundeNachher then inc(result);
        end;
      end;
    end;
  end;
  
end;

mfg