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