Ich muss für den Informatikunterricht ein Bruttoberechnungsprogramm schreiben, in welchem die MwSt schon deklariert/festgelegt ist. Ich habe gegooglet wie ne Irre und finde immer was mit
//const mwst=16
aber es klappt nie.
Außerdem, sobald ich in meinem Programm eine Zahl im Nettofenster eingebe, kommt diese Fehlermeldung:
" ist kein gültiger Gleitkommawert
So sieht mein Code momentan aus:
Delphi-Quellcode:
var
Form1: TForm1;
vnetto, vbrutto, vmwst:single;
const
mwst=16.0;
implementation
{$R *.dfm}
procedure TForm1.nettoChange(Sender: TObject);
begin
//Eingabe
vnetto:=strtofloat(netto.Text);
vmwst:=strtofloat(mwst.Text);
//Verarbeitung
vbrutto:=vnetto+vnetto*vmwst/100.0;
//Ausgabe
brutto.Text:=floattostr(vbrutto);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
brutto.Text:=floattostr(vbrutto);
brutto.Text:=floattostr(strtofloat (netto.text)+strtofloat (netto.Text)*strtofloat(mwst.Text)/100.0);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.
[edit=alcaeus]Code mit Delphi-Tags formatiert. Mfg, alcaeus[/edit]