also ich benutze delphi 7 das wir alle in der schule nutzen müssen...
mein
OS is windows vista home premium 32 bit
wenn ihr mein codeabschnitt seht fallt ihr tot um, da is alles durcheinander ich bin ja nur am testen ^^
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var ek, mwst, endbetrag, prozent1, prozent2, prozent3, prozent4,proend1, proend2, proend3, proend4: real;
begin
if labelededit1.text <> '' then
ek := strtofloat (labelededit1.text);
if labelededit1.Text = '' then exit;
mwst := ek * 1.19;
endbetrag := (ek * 1.20) * 1.19;
labelededit2.text := floattostr (mwst);
labelededit3.text := floattostr (endbetrag);
proend1 := (ek * 1.10) * 1.19;
labelededit8.text := floattostr (proend1);
proend2 := (ek * 1.30) * 1.19;
labelededit9.Text := floattostr (proend2);
proend3 := (ek * 1.40) * 1.19;
labelededit10.Text := floattostr (proend3);
end;
hab so lange rumexperimentiert wo ich eure ganzen befehle hinballern soll, dass ich manche einfach stehen gelassen hab ^^ aber es funktioniert jetzt durch das if labelededit1.text <> '' then"
boah bin ich hoffnungslos
vielen dank an euch aber über weitere tipps würd ich mich freuen, will soviel lernen wies geht
mfg