Hallo Zusammen
Ich bin ein Anfänger was das Programmieren angeht und bin bereits auf eine Frage gestossen.
Und zwar möchte ich ein Programm um Schulnoten einzulesen.
Diese sollen dann unter ihrem jeweiligen Fach ausgegeben werden.
Das Problem besteht bei der ComboBox wo man sein gewünschtes Fach auswählen muss und dann mit einem Button die Note hinzufügen.
Ich schaffe es nicht die ComboBox und den Button gleichzeitig zu verwenden.
Bzw ich möchte das wenn zum Beispiel jemand Sport in der ComboBox auswählt, dass die Note (bzw. der Durschnitt) dann beim Feld Sport erscheint.
Mein bisheriger Versuch:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
| procedure TFormNoten.bntaddClick(Sender: TObject);
var
Schnitt,Gewicht,Note : Real;
Fach : Integer;
begin
Fach:=CBoxFach.ItemIndex + 1;
case Fach of
1:
begin
Note:=StrToFloat(EdtNote.Text);
Gewicht:=StrToFloat(EdtGewichtung.Text);
Schnitt:=Note*Gewicht;
EdtSport.Text:=FloatToStr(Schnitt);
end;
2:
begin
Note:=StrToFloat(EdtNote.Text);
Gewicht:=StrToFloat(EdtGewichtung.Text);
Schnitt:=Note*Gewicht;
EdtBG.Text:=FloatToStr(Schnitt);
end;
end;
end; |
Wenn ich das so mache, kann er zwar kompilieren, jedoch das Programm nicht ausführen.
Was mache ich falsch?
Muss ich die ComboBox in einer Eigenen Procedure angeben?
Wenn ja, wie verbinde ich die Button-Procedure dann mit der ComboBox-Procedure?
Danke für eure Hilfe!
Gruss
Comilo
Comilo
