Gdzie problem w zaokrągleniu?

Witam, gdzie problem w zaokrągleniu:

 Edit3.Text := FloatToStr(RoundTo((StrToFloat(Edit1.Text) / StrToFloat(Edit2.Text)),-2));

Chciałbym żeby zaokrąglało zgodnie z zasadami matematyki, czyli jak jest np. 0,455 to po zaokrągleniu ma być 0,46. Jak jest 0,454 to powinno być 0,45.

Jak to zrobić, gdzie robię błąd?

Dzięki

Powinno być tak:

Var
Liczba1, Liczba2: Currency;
begin
Liczba1:= StrToFloat(Edit1.Text);
Liczba2:= StrToFloat(Edit2.Text);
Edit3.Text:= FloatToStr(Round(Liczba1/Liczba2));

Niestety coś nie bardzo... :-(

A jak to sprawdzić?

Gdybym tylko odpowiadał na pytania to bym odpowiedział GetRoundMode ale pewnie nie o to Ci chodzi. Na przyszłość nie zadawaj głupich pytań.

Ustaw po prostu taki tryb wg jakiego ma to zaokrąglać. Napisz sobie w kompilatorze SetRoundMode i naciśnij F1. W helpie masz napisane czarno na białym jakie są rodzaje zaokrąglania i co trzeba wpisać, żeby działało tak jak chcesz :O

Jeżeli nie znasz angielskiego to sprawdź doświadczalnie, masz aż 4 możliwości ustawienia tego parametru...

ok, sorry i dzięki

function RoundFloatCurr(C: Currency): Currency;
var
  n: Currency;
  x: Word;
  function IntPower_(x, y: Integer): Int64;
  begin
    Result := 1;
    while y > 0 do
    begin
      while not Odd(y) do
      begin
        y := y shr 1;
        x := x * x;
      end;
      Dec(y);
      Result := Result * x;
    end;
  end;
begin
  n := IntPower_(10, CurrencyDecimals);
  x := Default8087CW;
  Set8087CW((Default8087CW or $800) and $FBFF);
  if C < 0 then
    Result := Trunc(C * n - 0.5) / n
  else
    Result := Trunc(C * n + 0.5) / n;
  Set8087CW(x);
end;

i robisz sobie tak

z := strtofloat(a)/strtofloat(b);

z := RoundFloatCurr(z)

bo zapewne chodzi Ci o zaokraglenia walutowe

@crowa - a nie można po prostu ustawić sposobu zaokrąglania SetRoundMode? Przecież Delphi obsługuje wszystkie rodzaje zaokrągleń...

generalnie tak ;-) chyba ze masz Delphi2006 to w przypadku kochanych zlotoweczek sie wszystko rozjerzdza jesli nie ustawisz trybu kooperatora

edit3.text:=floattostr(RoundTo(strtofloat(edit3.text), -2));
edit3.text:=FormatFloat(',0.00',strtofloat(edit3.text));

To cię powinno naprowadzić...

pozdr