case Wertausgabe Endbetrag

[lbccaleb]

Zitat von Muddy:

Ich habe ein Problem in meiner Programmierung. UNd zwar weiß ich nicht wie ich jetzt den bruttowert ausgeben soll!
Am besten ebe ich euch den Quellcode.

So!! Wo steckt der fehler?

ich glaube so sollte es sein, nicht getestet:

Delphi-Quellcode:

procedure TForm2.RadioGroup1Click(Sender: TObject);
var
  bruttowert, nettowert, p: integer;
  begin
    nettowert := strtoint (edit2.text);
    case RadioGroup1.ItemIndex of
      0: bruttowert := nettowert;
      1: bruttowert := nettowert * (7 div 100) + nettowert ;
      2: bruttowert := nettowert + (19 div 100) + nettowert ;
  //  elsewas willst du hier mit nem else?? das ist nur auf eine if clausel anwendbar in delphi..
  //  p := strtoint (edit1.Text);
    3: bruttowert := nettowert * (p div 100) + nettowert ;
  end;
  panel1.caption := inttostr (bruttowert);
  end;
end;