Also hab folgenden Code
Delphi-Quellcode:
function RundeAufStelle(zahl: double; stellen: integer): double;
var multi: double;
begin
multi:=IntPower(10, stellen);
zahl:=round(zahl*multi);
result:=zahl/multi;
end;
procedure TForm1.Note;
var note: Real;
begin
if (FiCountCorrect=0) and (jkeins=1) and (jkzwei=1) then
begin
note:=7;
end else if (FiCountCorrect=0) and (jkeins=1) then
begin
note:=65/10;
end else if (FiCountCorrect=0) and (jkzwei=1) then
begin
note:=65/10;
end else if (FiCountCorrect=0) then
begin
note:=0;
end else if (jkeins=1) then
begin
note:=RundeAufStelle(note+1/2, 1);
end else if (jkzwei=1) then
begin
note:=RundeAufStelle(note+1/2, 1);
end else note:=RundeAufStelle(note-5/15, 1);
Label7.Caption:=FloatToStr(note);
end;
Hier stimmt aber mit den DatenTypen irgendwas nicht
stehe auf dem Schlauch und weiß nicht. Wenn ich die Variable note auf Double stelle ändert sich nix.
Bekomme zu dem noch diese Warnung: "[Warnung] MAIN.pas(134): Variable 'note' ist möglicherweise nicht initialisiert worden"
Hatte eigentlich noch nie Probleme mit Variablen.