Delphi-Quellcode:
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); // note ist undefiniert
end else if (jkzwei=1) then
begin
note:=RundeAufStelle({-->}note{<--}+1/2, 1); // note ist undefiniert
end else note:=RundeAufStelle({-->}note{<--}-5/15, 1); // note ist undefiniert
Label7.Caption:=FloatToStr(note);
end;
Zitat von
AlexII:
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.
Ich hab mal die Stellen gekennzeichnet, wo
note evtl. undefiniert ist, da die Anweisung, die auf
note zugreift, nur im else-Teil einer Bedingungen steht und die Zuweisung eines Wertes aber nur ausgeführt wird, wenn die Bedingung erfüllt ist.
Für die Logik sollte es keinen Unterschied machen, ob du real oder double benutzt, da ändert sich
imho nur die Genauigkeit.
MfG,
Bug