Falsche Ausgabe bei Durchschnittsberechnung

[Lill Jens]

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