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

[_frank_]

aso...du berechnest den Widerstand...
na dann nehm als Typ extended.
resistor:extended;
und
resistor:=(strtofloat(edit_UV.text)-strtofloat(edit_UD.text))/strtofloat(edit_ID.text)*1000;

ich hoffe, die klammern passen noch...

Gruß Frank

[Gehstock]

och nö

Delphi-Quellcode:

begin
case resistor of   **********ordinal type required
 25000..33001:pnl_normresistor.Caption := '27 KOhm';
 16500..22001:pnl_normresistor.Caption := '22 KOhm';

[_frank_]

jo, case geht nicht mit float
evtl. reicht ein
case trunc(resistor) of HTH Frank

[Gehstock]

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

[_frank_]

du machst es schon wieder... (oder immer noch?)

strtofloat(resistor)


mal davon abgesehen, dass du auch dort case verwenden kannst wie oben

Frank

[Gehstock]

Delphi-Quellcode:

case trunc(resistor) of


1000000:pnl_calculated_resistor.caption := FloatToStr(Runden(strtofloat(resistor)/1000000),2) +' MOhm';
999999..1000:pnl_calculated_resistor.caption := FloatToStr(Runden((strtofloat(resistor)/1000),2)) +' KOhm';
9999:pnl_calculated_resistor.caption := FloatToStr(Runden((strtofloat(resistor)/1),2))+' Ohm';
end;

So?
Nerv ich eigendlich?

[_frank_]

Junge...liest du auch mal was wir schreiben?

Delphi-Quellcode:

case trunc(resistor) of
  0..999:pnl_calculated_resistor.caption := FloatToStr(Runden(resistor,2))+' Ohm';
  1000..999999:pnl_calculated_resistor.caption := FloatToStr(Runden((resistor/1000),2)) +' KOhm';
  else :pnl_calculated_resistor.caption := FloatToStr(Runden(resistor/1000000),2) +' MOhm';
end;

(evtl. nach dem else kein ':')

das ständige umwandeln von/nach string...

[omata]

wegen Nichtbeachtung gelöscht

[Khabarakh]

Zitat von _frank_:

evtl. reicht ein
case trunc(resistor) of

Schonmal das Ende der Liste angeschaut? Denn dort wird es mit case NICHT funktionieren.