Hallo Jenny,
das erste Problem ist, das Du nicht 2 Sachen gleich benennen darfst. Hier hast Du das Edit MwSt und die Konstante MwSt genannt. Das funktioniert nicht. Nenn das Edit mal MwStEdit. Das nächste Problem ist, dass bei leerem Netto.Text strtofloat eine
Exception auslöst, da ein leerer String nicht in eine Zahl umgewandelt werden kann. Fang das mit try..except ab.
die Variablen vnetto,vmwst,vbrutto müssen nicht unbedingt global deklariert werden.
Hier mal ein Codeschnipsel:
Delphi-Quellcode:
procedure TForm1.NettoChange(Sender: TObject);
var vnetto,vmwst,vbrutto: single;
begin
//Eingabe
// falls netto.text keine zahl beinhaltet oder leer ist, dann vnetto := 0
try vnetto := strtofloat(Netto.Text);
except vnetto := 0; end;
//Verarbeitung
vmwst := vnetto * (mwst / 100 );
vbrutto := vnetto * ((100+mwst) / 100);
//Ausgabe (formatiert mit 2 Nachkommastellen und Tausender-Punkt)
MwstEdit.Text := FormatFloat(',0.00',vmwst);
Brutto.Text := FormatFloat(',0.00',vbrutto);
end;
Grüsse
...Doc