Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Case of funktioniert nicht

   
    by SProske, 29. Jul 2015
  Mit formatieren meint er vermutlich das:
  
  case combobox2.ItemIndex of
  0: begin
  case combobox3.ItemIndex of
  0: edit4.Text:= FloatToStr(0.4*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000001/9.87*0);
  1: edit4.Text:= FloatToStr(0.4*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000001/9.87*1);
  2:...
• Forum: Programmieren allgemein

  AW: Case of funktioniert nicht

   
    by SProske, 29. Jul 2015
  So wie ich das sehe, verwendest du immer
  
  edit4.Text:= FloatToStr(0.4*StrToFloat(edit11.Text)*8*StrToFloat(edit1.Text)*StrToFloat(edit1.Text)/0.00000001/9.87*0);
  
  Wobei sich die 0.4 abhängig von ComboBox2.ItemIndex ändert, die 0 abhängig von ComboBox3.ItemIndex (genauer gesagt entspricht sie die ItemIndex)
  
  Wieso also nicht:
  
  procedure TForm2.Button2Click(Sender: TObject);
  var