Das ist ja nicht mehr mit Anzusehen. 71 Beiträge für die drei Fragen: Wie wandele ich einen Text in eine Fließkommazahl um? Wie rechne ich 75% von einem Betrag minus 50? Und wie gebe ich eine Fließkommazahl auf zwei Nachkommastellen gerundet aus? Und das auch noch wo es der Lehrer im Unterricht sehr wahrscheinlich erklärt hat, es die Delphi Hilfe gibt, man mit Google bestimmt auch fündig geworden wäre, man alle drei Fragen mit Hilfe der Forensuche beantwortet bekommt.
Und dann wird einem noch genau die Frage per PN gestellt, die hier bereits im Forum diskutiert wird.
Delphi-Quellcode:
procedure TForm3.Button1Click(Sender: TObject);
var
BetragSchaden: double;
BetragErstattung: double;
begin
BetragSchaden := StrToFloatDef(Edit1.Text, 0);
BetragErstattung := BetragSchaden * 0.75 - 50;
if BetragErstattung <= 0 then
begin
Label1.Caption := 'Keine Erstattung möglich';
end
else
begin
Label1.Caption := Format('%.2n Euro', [BetragErstattung]);
end;
end;