Hey Ihr!
Mein Problem ist das, obwohl ich (meiner meinung nach) den code richtig geschrieben habe, eine falsche ausgabe kommt dazu noch als Fehlermeldung!
Hier erst mal mein Code:
Delphi-Quellcode:
procedure TForm1.Button18Click(Sender: TObject);
var
k: Integer;
begin
k:=0;
if (Label56.Caption>=FloatToStr(1))
Then begin
k:= k +1
end;
if (Label57.Caption>=FloatToStr(1))
Then begin
k:= k +1
end;
if (Label58.Caption>=FloatToStr(1))
Then begin
k:= k +1
end;
if (Label59.Caption>=FloatToStr(1))
Then begin
k:= k +1
end;
if (Label60.Caption>=FloatToStr(1))
Then begin
k:= k +1
end;
if (Label61.Caption>=FloatToStr(1))
Then begin
k:= k +1
end;
if (Label62.Caption>=FloatToStr(1))
Then begin
k:= k +1
end;
if (Label63.Caption>=FloatToStr(1))
Then begin
k:= k +1
end;
If (k = 0)
Then
Label72.Visible := false;
Label72.Caption:= FloatToStr(1);
If (k >=1)
Then
Label72.Visible := true;
Label72.Caption:= FloatToStr(StrToFloat(Label56.Caption) + StrToFloat (Label57.Caption) + StrToFloat (Label58.Caption) + StrToFloat (Label59.Caption) + StrToFloat (Label60.Caption) + StrToFloat (Label61.Caption) + StrToFloat (Label62.Caption) + StrToFloat (Label63.Caption));
Label72.Caption:= FloatToStr(StrToFloat (Label72.Caption) / k);
wenn 'k' am schluss 0 ist (und davon geh ich bei dem versuch aus) soll ausgegeben werden Label72.Caption:= FloatToStr(1).
aller dings springt mein prog in die letzte zeile, obwohl 'k' wirklich null ist. ich blick nicht wieso?!
Das ganze soll einer Notendurchschnittsberechnung dienen!
Thx 4 Cmts
Lill Jens
