Wieso klappt dieser Code nicht?

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