Programmierung einer Kaskoversicherung

[Luckie]

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;