case Wertausgabe Endbetrag

[Muddy]

ICh muss aber einen Prozentwert berechnen. Zu dem Nettowert sollen 7% dazugerechnet werden!

[mkinzler]

Dann solltest du keine Integer verwenden.

[Muddy]

Jetzt zeigt er mir aber ein Fehler an.

Code:

procedure TForm2.RadioGroup1Click(Sender: TObject);
var
  bruttowert, nettowert, p: double;
  begin
    p := strtofloat (edit1.Text);
    nettowert := strtofloat (edit2.text);
    case RadioGroup1.ItemIndex of
      0: bruttowert := nettowert;
      1: bruttowert := nettowert * (7 div 100) + nettowert ;
      2: bruttowert := nettowert + (19 div 100) + nettowert ;
    3: bruttowert := nettowert * (p div 100) + nettowert ; // hier zeigt er einen Fehler an
    end;
  panel1.caption := floattostr (bruttowert);
  end;
end.

[mkinzler]

Delphi-Quellcode:

bruttowert := nettowert * p / 100 + nettowert ;

Entsprechend bei den anderen Berechnungen

[dominikkv]

Ist es gewollt das wenn RadioGroup1.ItemIndex == 2 dass dan 2 mal nettowert addiert wird oder hast du hier ein + mit einem * verwechselt?

Ansonsten musst du entweder runden (bruttowert := Round(nettowert * (7 /100) + nettowert)) oder du verwändest statt Integer Real/Double/Extended
Dann musst du aber FloatToStr statt IntToStr nehmen