Programmierung einer Kaskoversicherung

[fkerber]

Hi!
format sollte dein Freund sein.


Grüße, Frederic

[Hüseyin123]

Zitat von fkerber:

Hi!
format sollte dein Freund sein.


Grüße, Frederic

Das hilft mir nicht gerade weiter

[Namenloser]

Zitat von Hüseyin123:

Zitat von fkerber:

Hi!
format sollte dein Freund sein.


Grüße, Frederic

Das hilft mir nicht gerade weiter

4. Treffer

[Wolfgang Mix]

str:8:2 sollte auch funktionieren

Gruß

Wolfgang

[Hüseyin123]

Zitat von Wolfgang Mix:

str:8:2 sollte auch funktionieren

Wie wird das dann da reingebaut ?

[Wolfgang Mix]

Delphi-Quellcode:

str(neuwert:8:2,s);
Labelx.Caption:=s;

Beispielcode siehe auch hier

Gruß

Wolfgang

[Hüseyin123]

Zitat von Wolfgang Mix:

Delphi-Quellcode:

str(neuwert:8:2,s);
Labelx.Caption:=s;

Beispielcode siehe auch hier

Gruß

Wolfgang

Wenn ich das so mache kommen die Fehler Nicht genügend wirkliche Parameter und Operator oder Semikolon fehlt.

[Wolfgang Mix]

Ich habe den Code hiermit noch einmal getestet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var neuwert:double;
    s:string;
begin
  neuwert:=0.00000051;
  str(neuwert:8:2,s);
  Edit1.text:=s;
end;

Bei mir funzt das.

Gruß

Wolfgang

[Hüseyin123]

Zitat von Wolfgang Mix:

Ich habe den Code hiermit noch einmal getestet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var neuwert:double;
    s:string;
begin
  neuwert:=0.00000051;
  str(neuwert:8:2,s);
  Edit1.text:=s;
end;

Bei mir funzt das.

Gruß

Wolfgang

ich krieg das irgendwie nicht hin

Delphi-Quellcode:

 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;

Bs jetzt sieht es ya so aus was muss ich jez genau reinschreiben?

[Wolfgang Mix]

Delphi-Quellcode:

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 !'

Besser: Im Deklarationsteil

Delphi-Quellcode:

var s:string;

.. und dann

IF Zahl1  <= 66.68 THEN
begin
  str(Erstattungsbetrag:8:2,s);  
  ErstattungsbetragLbl.caption := s;
end