Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
29. Dez 2009
Ich bin dann mal hier wech
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
29. Dez 2009
Vermutlich, dann können wir auch nicht mehr helfen :wall: :wall: :wall:
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
29. Dez 2009
Das sehe ich jetzt allerdings auch so
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
29. Dez 2009
@Der.Kaktus:
Im Prinzip ja.
Leider muß ich in meinem Alltagsgeschäft feststellen, daß dies kein Einzellfall ist.
Da gilt es, Ruhe zu bewahren :)
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
29. Dez 2009
@ Hüseyin123:
So langsam wir es Zeit, daß du selbst in die Puschen Kommst.
Luckie (Post 72) hatte dir ja schon den kompletten Code vor die Füße geschmissen.
Warum vermurkst du den wieder? Am beasten, du fängst hier an und arbeitest dich durch.
Ich glaube, hier hat keiner Lust, dich Zeile für Zeile zum Ziel zu führen.
obwohl "dein" Code hier schon mehrfach fertig war.
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
29. Dez 2009
Bei welchen Eingabewerten kommt Null heraus?
> 68,67
= 68,67
< 68,67
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
29. Dez 2009
Bei welchen Eingabewerten kommt Null heraus?
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
27. Dez 2009
@Hüseyin123
Den letzten Schritt hättest Du nun wirklich allein schaffen müssen.
Entweder Du setzt 68.67 ein oder nimmst das "=" weg oder
Du nimmst Luckies Variante.
Das sollte es jetzt aber gewesen sein. Ein bißchen mehr Eigeninitiative
ist schon nötig, sonst kommst Du nicht weiter.
Eigentlich lösen wir Hausaufgaben hier nicht vollständig
Gruß
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
26. Dez 2009
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
var s:string;
.. und dann
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
26. Dez 2009
Ich habe den Code hiermit noch einmal getestet:
procedure TForm1.Button1Click(Sender: TObject);
var neuwert:double;
s:string;
begin
neuwert:=0.00000051;
str(neuwert:8:2,s);
Edit1.text:=s;
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
25. Dez 2009
str(neuwert:8:2,s);
Labelx.Caption:=s;
Beispielcode siehe auch hier
Gruß
Wolfgang
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
25. Dez 2009
str:8:2 sollte auch funktionieren
Gruß
Wolfgang
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
23. Dez 2009
If Neuwert <= 66.67 then gibtnix
Damit müßtest du jetzt fertig sein :)
Gruß und frohe Weinachten
Wolfgang
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
23. Dez 2009
... dann wäre der Neuwert 158,21 Euronen
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
23. Dez 2009
If Ersttungsbetrag <=0 ...
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
23. Dez 2009
... dann fehlt da wohl noch 'ne If-Abfrage :)
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
21. Dez 2009
Am Ende noch zur Kontrolle:
Der Neuwert muß mindestens 66,68 Euronen betragen, dann zahlt die Versicherung 1 Cent :mrgreen:
Gruß
Wolfgang
PS: 75% der Bundesbürger beherrschen weder Dreisatz noch Prozentrechnung.
Das ist fast die Hälfte :mrgreen: :wall: :mrgreen: