Runden bei FFFixed verhindern.

[soulies]

hi,

ich glaube eine direkte funktion gibt es dafür nicht aber du könntest mal
folgendes ausprobieren:

Delphi-Quellcode:

function abrunden(value:Double):Double ;
begin
  Result := Int(value) + Floor( Frac( value ) *10 ) / 10 ;
end;

procedure ... (Sender: TObject);
var
  ...
begin
  ...
  Note := ((17/3)-(Gesamt/180));
  LNote.Caption := Format('%.2f',[abrunden(Note)]);
end;

kurze erklärung:

Frac(value) = nachkommaanteil deiner note // z.b. 0.99444
Frac( value ) * 10 // 9.9444
Floor(...) = abrunden nach unten auf nächsten integer wert // 9.0
wieder zurück teilen (/10) // 0.9
Int(value) = ganzzahliger Teil // 2


vllt. bringt es dich weiter


cya