Wieso klappt dieser Code nicht?

[smart]

Hallo Alle!

Wieso klappt dieser Code nicht?

Delphi-Quellcode:

…
Var
PreisA, PreisB, PreisC: Variant
Begin
PreisA := '1,29';
PreisB := '2,33';
PreisC := '3,95';
Edit1.Text := PreisA + PreisB + PreisC;
…….

Es sollte alles zusammengerechnet werden. Klappt aber nicht. Was mache ich da Falsch?

Gruß
Heike

[Prototypjack]

Moin!
Ich habe gerade nicht sehr viel Zeit aber kann es möglicherweise an dem Komma liegen?
Versuche es mal mit Punkten.

Gruß,
Max

[TurboMartin]

Zitat:

Zitat von smart

Delphi-Quellcode:

…
Var
PreisA, PreisB, PreisC: Single;
Begin
PreisA := '1.29';
PreisB := '2.33';
PreisC := '3.95';
Edit1.Text := FloatToStr(PreisA + PreisB + PreisC);
…….

Sollte klappen. :zwinker:
Welche Fehler gabs denn?
Im Englischen/PC ist , = .. :mrgreen:

[Kedariodakon]

Versuchs mal so:

Delphi-Quellcode:

//  ...
Var PreisA, PreisB, PreisC: Variant
Begin
  PreisA := 1.29;
  PreisB := 2.33;
  PreisC := 3.95;
  Edit1.Text := PreisA + PreisB + PreisC;
  //  ...
End;

Deine Version wird wohl nicht klappen, da er deine Zahlen ja expleziet als String in den Variant swpeichert, somit wird es dann nichts mit dem addieren... (denk ich, ohne es versucht zu haben)

Bye Christian

[smart]

Zitat:

Zitat von Kedariodakon

Versuchs mal so:

Delphi-Quellcode:

//  ...
Var PreisA, PreisB, PreisC: Variant
Begin
  PreisA := 1.29;
  PreisB := 2.33;
  PreisC := 3.95;
  Edit1.Text := PreisA + PreisB + PreisC;
  //  ...
End;

Deine Version wird wohl nicht klappen, da er deine Zahlen ja expleziet als String in den Variant swpeichert, somit wird es dann nichts mit dem addieren... (denk ich, ohne es versucht zu haben)

Bye Christian

Da bekomme ich eine "Ungültige Variant-Typenumwandlung"

Gruß
Heike

[Prototypjack]

Delphi-Quellcode:

var
  PreisA, PreisB, PreisC: Variant;
begin
  PreisA := 1.29;
  PreisB := 2.33;
  PreisC := 3.95;
  Edit1.text := FloatToStr(PreisA + PreisB + PreisC);

Gruß,
Max

[Christian Seehase]

Moin Heike,

Zitat:

Zitat von smart

Da bekomme ich eine "Ungültige Variant-Typenumwandlung"

ich nicht, und ich habe es auch mit D7 getestet ;-)

[TurboMartin]

Ooh, sehe grad, dass bei meinem Code die ' bei den Zahlen wegmüssen.

[Prototypjack]

Selbst wenn die direkte Zuweisung nicht funktioniert, mit FloatToStr klappt es zu 100%.

Gruß,
Max

[Kedariodakon]

Zitat:

Zitat von Christian Seehase

Moin Heike,

Zitat:

Zitat von smart

Da bekomme ich eine "Ungültige Variant-Typenumwandlung"

ich nicht, und ich habe es auch mit D7 getestet ;-)

Gerade nochmal versucht und es geht, wie ichs mir dachte :roll:

Zur not so:

Delphi-Quellcode:

//...
procedure TForm1.Button1Click(Sender: TObject);
Var PreisA, PreisB, PreisC: Variant;
begin
  PreisA  := 1.29;
  PreisB  := 2.33;
  PreisC  := 3.95;
  Edit1.Text := VarToStr( PreisA + PreisB + PreisC );
end;
//...