Einzelnen Beitrag anzeigen

Gehstock

Registriert seit: 28. Jan 2006
Ort: Görlitz / Sachsen
489 Beiträge
 
Delphi 2007 Professional
 
#15

Re: Code optimieren

  Alt 18. Aug 2006, 20:54
Ja Danke Reicht

Nächstes Problem :


Delphi-Quellcode:
if (Resistor)>=1000000 then begin //mohm *******Hab ich schon abgeändert
pnl_calculated_resistor.caption := FloatToStr(Runden(strtofloat(resistor)/1000000),2) +' MOhm'; //*****hier is bestimmt wieder ne klammer falsch
end;
if (Resistor)<1000000 then begin
if (Resistor)>=1000 then begin //kohm
pnl_calculated_resistor.caption := FloatToStr(Runden((strtofloat(resistor)/1000),2)) +' KOhm';
end;
end;
if (Resistor)<1000 then begin //ohm
pnl_calculated_resistor.caption := FloatToStr(Runden((strtofloat(resistor)/1),2))+' Ohm';
end;
erzeugt ein
Zitat:
There is no overloaded version of 'StrToFloat' that can be called with these arguments
eh ich das mit den Formeln habe dauerts bestimmt jahre
Marcel
  Mit Zitat antworten Zitat