Hallo Leute,
ich versuche grad ein Programm zu erstellen und steh offensichtlich ziemlich auf der Leitung. Es kommt immer die Fehlermeldung, "[Hinweis] Unit1.pas(55): Auf 'rProzentsatz' zugewiesener Wert wird niemals benutzt". Ich komm aber nicht drauf, wo genau jetzt der Fehler liegt, weil ich rProzentsatz ja im Prinzip einen Wert zugewiesen habe, mit zwei Prozent im Rahmen liegt - oder?
Vielleicht findet ja wer von euch den Fehler. Vielen Dank!
Delphi-Quellcode:
procedure TForm1.B_BerechneClick(Sender: TObject);
const rEinzelpreis=30;
var rMenge, rGesamtpreis, rProzentsatz, rProzentwert, rRechnungsbetrag :real;
begin
rMenge:= StrToFloat (E_Menge.Text);
rGesamtpreis:= rMenge*rEinzelpreis ;
E_Gesamtpreis.Text:= FloatToStr (rGesamtpreis);
E_Prozentsatz.text:= FloatToStr (rProzentsatz);
rProzentwert:= rProzentsatz*rGesamtpreis;
E_Prozentwert.text:= FloatToStr (rProzentwert);
rRechnungsbetrag:= rGesamtpreis-rProzentwert ;
E_Rechnungsbetrag.text:= FloatToStr (rRechnungsbetrag);
IF rGesamtpreis >100 THEN
begin
rProzentsatz:= 0.03
end
ELSE
begin
IF rGesamtpreis<=100 THEN
rProzentsatz:=0.02;
end;
end;
end.