Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: case Wertausgabe Endbetrag

    Delphi
    by lbccaleb, 1. Apr 2008
  ja ich hab das ganze schon veränder, ja das p muss natürlich drin bleiben und den text des panels setzt du mit caption, ich hab das ganze geändert:
  
  procedure TForm2.RadioGroup1Click(Sender: TObject);
  var
  bruttowert, nettowert, p: integer;
  begin
  p := strtoint (edit1.Text); <--- hier den p wert auslesen aus dem edit
  nettowert := strtoint (edit2.text);
  case...
• Forum: Sonstige Fragen zu Delphi

  Re: case Wertausgabe Endbetrag

    Delphi
    by lbccaleb, 1. Apr 2008
  ich glaube so sollte es sein, nicht getestet:
  
  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 ;