Einzelnen Beitrag anzeigen

Benutzerbild von BUG
BUG

Registriert seit: 4. Dez 2003
Ort: Cottbus
2.094 Beiträge
 
#5

Re: Wie wandle ich Double nach String um?

  Alt 30. Sep 2008, 00:26
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
Intellekt ist das Verstehen von Wissen. Verstehen ist der wahre Pfad zu Einsicht. Einsicht ist der Schlüssel zu allem.
  Mit Zitat antworten Zitat