Hi Leute,
ich möchte mein Stundenplan mit zweidimensionalen Arra's Visualisieren und habe auch schon angefangen:
Quelltext:
begin
canvas.Font.Color:=clred;
for stunde:=0 to 8 do
canvas.TextOut(20,50+stunde*20,IntToStr(Stunde));
for tag:=Mo to Fr do
canvas.TextOut(50+ord(tag)*100,20,Wochentag[tag]);
canvas.Font.Color:=clblack;
for stunde:=0 to 8 do
for tag:=Mo to Fr do
canvas.TextOut(60+ord(tag)*100,50+stunde*20,Stunde nplan[stunde,tag]);
nun möchte ich das eine Funktion "Wochenstunden" zählt nach der Übergabe eines Fachnamens die Wochenstundenanzahl in diesem Fach
und dass nach der Übergabe eines Fachnamens Tag und Stunde ausgegeben wird, an dem ein bestimmtes Fach haben (Prozedur "Fachausgabe"). Die "Klappstunden", die Stunden, die mitten zwischen anderen Schulstunden frei sind sollen auch ausgegeben werden.
Ich habe schon Prozeduren vorgeschrieben:
function TFStundenplan.Wochenstunden(Fachname: string): integer;
var stunde:TStunde;
tag:TTage;
begin
// Hier den Quelltext ergänzen
end;
procedure TFStundenplan.BWochenstundenClick(Sender: TObject);
begin
showmessage('Sie haben '+IntToStr(Wochenstunden(EFachname.text))+
' Stunden '+EFachname.text+'!');
end;
procedure TFStundenplan.BFachausgabeClick(Sender: TObject);
var stunde:TStunde;
tag:TTage;
gefunden:boolean;
begin
// Hier den Quelltext ergänzen
end;
function TFStundenplan.Klappstunden(Stundenplan: TStundenplan): integer;
var stunde:TStunde;
tag:TTage;
anzahl:integer;
begin
// Hier den Quelltext ergänzen
end;
procedure TFStundenplan.BKlappstundenClick(Sender: TObject);
begin
showmessage('Sie haben '+IntToStr(Klappstunden(Stundenplan))+' Klappstunden!');
end;
end.
Ich lade euch die .dpr als anhang hoch wäre nice wenn ihr mir eine Antwort geben könntet
!
MFG User1223
