unit UKaskoversicherung;
//----------------------------------------
//Projektname: Ein Kaskoversicherungsfall
//Version: V1.0
//Autor: Hüseyin Yilmaz
//Compiler: Delphi 4
//Letze Änderung: 25.12.09
//----------------------------------------
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Math ;
type
TKaskoversicherung =
class(TForm)
NeuwertEdt: TEdit;
BerechneBtn: TButton;
SchliessenBtn: TButton;
ErstattungsbetragLbl: TLabel;
Label1: TLabel;
procedure SchliessenBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BerechneBtnClick(Sender: TObject);
private
public
{ Public-Deklarationen}
end;
var
Kaskoversicherung: TKaskoversicherung;
Zahl1: double ;
Ergebnis : double ;
s:
string ;
implementation
{$R *.DFM}
procedure TKaskoversicherung.SchliessenBtnClick(Sender: TObject);
begin
close
end;
procedure TKaskoversicherung.FormCreate(Sender: TObject);
begin
NeuwertEdt.text := '
' ;
ErstattungsbetragLbl.caption := '
' ;
end;
procedure TKaskoversicherung.BerechneBtnClick(Sender: TObject);
begin
Zahl1 := strtofloat(NeuwertEdt.text) ;
ErstattungsbetragLbl.caption := floattostr (Zahl1*0.75-50) ;
IF Zahl1 <= 66.67
then begin
str(Ergebnis:8:2,s);
ErstattungsbetragLbl.caption := s
end;
begin
IF Zahl1 < 0
THEN BEGIN ErstattungsbetragLbl.caption := '
Der Schaden kann nicht im "-" bereich stehen !'
end
else
begin
ErstattungsbetragLbl.Caption := Format('
%.2n Euro', [Ergebnis]);
end;
end;
end;
end.