Hallo Alle!

Wieso klappt dieser Code nicht?

markieren

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

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

Gruß,
Max

Zitat von smart:

markieren

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 , = ..

Versuchs mal so:

markieren

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

Zitat von Kedariodakon:

Versuchs mal so:

markieren

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

markieren

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

Moin Heike,

Zitat von smart:

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

ich nicht, und ich habe es auch mit D7 getestet

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

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

Gruß,
Max

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:

markieren

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