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;
Ergebnis2Lbl: 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: INTEGER ;
Ergebnis : DOUBLE ;
Ergebnis2: DOUBLE ;
implementation
{$R *.DFM}
procedure TKaskoversicherung.SchliessenBtnClick(Sender: TObject);
begin
close
end;
procedure TKaskoversicherung.FormCreate(Sender: TObject);
begin
NeuwertEdt.text := '
' ;
ErstattungsbetragLbl.caption := '
' ;
Ergebnis2Lbl.caption:= '
'
end;
procedure TKaskoversicherung.BerechneBtnClick(Sender: TObject);
begin
Zahl1 := strtoint(NeuwertEdt.text) ;
ErstattungsbetragLbl.caption := floattostr (Zahl1*0.75-50) ;
IF Zahl1 > 68 (NeuwertEdt.text)
THEN BEGIN Ergebnis2Lbl.caption := '
GEHT NICHT ! ' ;
end;