das ist die ganze geschicht
Delphi-Quellcode:
procedure TForm3.Button9Click(Sender: TObject);
var stufe,Fl,Rf,Nf : Integer;
begin
stufe := StrToInt (Edit31.Text);
Rf := StrToInt (Edit32.Text);
Nf:= StrToInt (Edit33.Text);
Fl := StrToInt (Edit34.Text);
if ComboBox1.ItemIndex = 0 then
Label57.Caption := 200*2^(Stufe-1);
Label58.Caption := 1000*2^(Stufe-1);
Label59.caption := 200*2^(Stufe-1);
Label64.Caption := ((200+1000)div(1000*(1+FL)))*60;
end;
das mit dem power check ich nit
wenn ich es einbauen will unterstreicht er es immer rot