unit Unit1;
//----------------------------------------
//Projektname: Ein Kaskoversicherungsfall
//Version: V1.0
//Autor: Hüseyin Yilmaz
//Compiler: Delphi 4
//Letze Änderung: 23.12.09
//----------------------------------------
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
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
{ Private-Deklarationen}
public
{ Public-Deklarationen}
end;
var
Kaskoversicherung: TKaskoversicherung;
Zahl1: Double ;
Ergebnis : DOUBLE ;
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 ErstattungsbetragLbl.caption := '
Der Schaden kann leider nicht bezahlt werden!' ;
IF Zahl1 < 0
THEN BEGIN ErstattungsbetragLbl.caption := '
Der Schaden kann nicht im "-" bereich stehen !' ;
end;
End;
end;
end.