Wie kann ich das rechnen

[_frank_]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var widerstand,tolerance:extended;
const prozent=2.5;
begin
  widerstand:=StrToFloat(Edit1.text);
  tolerance:=widerstand/100*prozent;
  edit2.text:=FloatToStr(Tolerance);
  edit3.text:=floattostr(widerstand-tolerance)+' Ohm';
  edit4.text:=floattostr(widerstand+tolerance)+' Ohm';
end;

also bei mir haut das hin...du musst ggf. prüfen, ob deine Berechnungen vorher i.O. sind

//edit: warum denn die 1?

Gruß Frank