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