Deklaration MWST - Achtung:Totaler NOOB!

[DocE]

Hallo Jenny,

also ich würde das ganze so machen, da ihr die "Try-Sachen" noch nicht hattet:

Was jetzt in NettoChange steht, in Button1Click packen und das bisherige Button1Click entfernen. Somit wird erst auf Knopfdruck gerechnet. Das jetzige MwSt Feld ist somit überflüssig und könnte weg. Der Code würde dann so aussehen:

Delphi-Quellcode:

var 
  Form1: TForm1; 
  vnetto, vbrutto: single; 

const 
  vmwst = 16.0;  

implementation 

{$R *.dfm} 

procedure TForm1.nettoChange(Sender: TObject); 
begin 

  // bitte leer machen!

end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 

  //Eingabe 
  vnetto := strtofloat(netto.Text); 

  //Verarbeitung 
  vbrutto := vnetto + vnetto * vmwst / 100.0; 

  //Ausgabe 
  brutto.Text := floattostr(vbrutto); 

end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
  
  close; 

end; 

end.

Somit rechnet Dir das Programm auf Knopfdruck den Brutto-Betrag mit der festen MwSt aus.

("// bitte leer machen! " nicht dahin schreiben, sondern wirklich leer machen...)


Grüsse
...Doc