Probleme Mit dem Runden von Zahlen

[Gehstock]

Delphi-Quellcode:

function Runden(zahl: double; stellen: integer): double;
var multi: double;
begin
  multi:=IntPower(10, stellen);
  zahl:=round(zahl*multi);
  result:=zahl/multi;

end;

den Code Hab ich aus dem Netz

Delphi-Quellcode:

Resistor := floattostr(((strtofloat(edit_UV.text)-
strtofloat(edit_UD.text))/strtofloat(edit_ID.text))*1000);


if StrTofloat(Resistor)>999 then begin                                  //kohm
pnl_calculated_resistor.caption := FloatToStr(Runden(((strtofloat(resistor)/
1000)), 2)+' KOhm');                                 ******Erzeugt Incompitable types 'string' 'Double'

end;
if StrTofloat(Resistor)<1000 then begin                                 //ohm
pnl_calculated_resistor.caption := FloatToStr(Runden(((strtofloat(resistor)/
1)), 2)+' KOhm');                                    ******Erzeugt Incompitable types 'string' 'Double'
end;

Kann mir das Bitte Jemand helfen Knobel Schon 3 stunden Dran

[Klaus01]

Delphi-Quellcode:

if StrTofloat(Resistor)>999 then begin                                  //kohm 
pnl_calculated_resistor.caption := FloatToStr( Runden( ( strtofloat(resistor) / 1000) , 2)) +' KOhm';                                
end; 
if StrTofloat(Resistor)<1000 then begin                                 //ohm 
pnl_calculated_resistor.caption := FloatToStr( Runden( ( strtofloat(resistor)/ 1), 2))+' kOhm';                                    end;

Deine Klammern waren nicht korrekt, hoffe ich habe sie richtig korrigiert.

Grüße
Klaus

[Gehstock]

Danke jetzt klappts :bounce2:

Immer diese Kleinigkeiten

[shmia]

Zitat:

Zitat von Gehstock

Danke jetzt klappts :bounce2:
Immer diese Kleinigkeiten

Wirklich ????? :shock:
Schon mal versucht, die Zahlen 1.5 und 2.5 zu runden?
Tja, einmal wird aufgerundet und einmal abgerundet. (=Bankers Rounding)

http://www.delphipraxis.net/internal...ct.php?t=59419