Code optimieren

[Gehstock]

Zitat:

resistor:integer;

Da bekomm ich aber an anderer stelle Probleme

Delphi-Quellcode:

Resistor := floattostr(((strtofloat(edit_UV.text)-          //widerstand
strtofloat(edit_UD.text))/strtofloat(edit_ID.text))*1000);            +++++++ Nämlich hier

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

aber sonst könnte das klappen und gefällt mir ganz gut