Einzelnen Beitrag anzeigen

AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#4

Re: Wie wandle ich Double nach String um?

  Alt 29. Sep 2008, 23:59
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.
  Mit Zitat antworten Zitat