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 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.
Welche Fehler gabs denn?
Im Englischen/PC ist , = ..

[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 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 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 von Christian Seehase:

Moin Heike,

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

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;
//...