Immer +1 nehmen

[nahpets]

Hallo,
bitte teile uns mal mit, was da jeweils bei rauskommt:

Delphi-Quellcode:

  str := Socket.ReceiveText;
ShowMessage(str);
  zahl1 := StrToFloatDef(str, 0);
ShowMessage(FloatToStr(Zahl1));
  Anzahl := Anzahl + zahl1;
ShowMessage(FloatToStr(Anzahl));
  Edit1.Text := FloatToStr(Anzahl);
ShowMessage(Edit1.Text);

Falls hier

Delphi-Quellcode:

  zahl1 := StrToFloatDef(str, 0);
ShowMessage(FloatToStr(Zahl1));

immer 0 rauskommt, ändere das mal bitte in

Delphi-Quellcode:

  zahl1 := StrToFloatDef(str, 1);
ShowMessage(FloatToStr(Zahl1));

Sollte str immer leer sein, dann mache es so:
Edit1.Text := FloatToStr(StrToFloatDef(Edit1.Text,1));