![]() |
Re: Programmierung einer Kaskoversicherung
|
Re: Programmierung einer Kaskoversicherung
Zitat:
|
Re: Programmierung einer Kaskoversicherung
Zitat:
![]() |
Re: Programmierung einer Kaskoversicherung
str:8:2 sollte auch funktionieren
Gruß Wolfgang |
Re: Programmierung einer Kaskoversicherung
Zitat:
|
Re: Programmierung einer Kaskoversicherung
|
Re: Programmierung einer Kaskoversicherung
Zitat:
|
Re: Programmierung einer Kaskoversicherung
Ich habe den Code hiermit noch einmal getestet:
Delphi-Quellcode:
Bei mir funzt das.
procedure TForm1.Button1Click(Sender: TObject);
var neuwert:double; s:string; begin neuwert:=0.00000051; str(neuwert:8:2,s); Edit1.text:=s; end; Gruß Wolfgang |
Re: Programmierung einer Kaskoversicherung
Zitat:
Delphi-Quellcode:
Bs jetzt sieht es ya so aus was muss ich jez genau reinschreiben?
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 : Single ; 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; |
Re: Programmierung einer Kaskoversicherung
Delphi-Quellcode:
Besser: Im Deklarationsteil
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 !'
Delphi-Quellcode:
var s:string;
.. und dann IF Zahl1 <= 66.68 THEN begin str(Erstattungsbetrag:8:2,s); ErstattungsbetragLbl.caption := s; end |
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:03 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz