Einzelnen Beitrag anzeigen

EDatabaseError

Registriert seit: 11. Mai 2005
Ort: Göppingen
1.238 Beiträge
 
Delphi 2007 Professional
 
#6

Re: Problem mit Größer als und Kleiner als

  Alt 25. Jul 2006, 21:26
Zitat von Gehstock:
Zitat von EDatabaseError:
Was anderes... was machst du wenn der Widerstand genau 1 kOhm ist.

Denn Ohm bei kleiner 1000
kOhm bei größer 1000



[/delphi]

Ups hast recht


Delphi-Quellcode:
procedure TForm2.btn_execute_preresistClick(Sender: TObject);
var
Resistor : string;
begin
if StrToInt(Resistor)<1000then begin
pnl_calculated_resistor.caption := resistor+' Ohm'
end;

if StrToInt(Resistor)>=1000 and StrToInt(Resistor)<1000000 then begin
pnl_calculated_resistor.caption := (floattostr((strtofloat(resistor)/
1000))+' KOhm')
end;

Resistor := floattostr(((strtofloat(edit_UV.text)-
strtofloat(edit_UD.text))/strtofloat(edit_ID.text))*1000);
if StrToInt(Resistor)<1000000 then begin
pnl_calculated_resistor.caption := (floattostr((strtofloat(resistor)/
1000000))+' MOhm')
end;
end;
nein eher so wie ichs oben gemacht hab ^
Tobias
It's not a bug, it's a feature.
  Mit Zitat antworten Zitat