Guten Tag liebe Delphi-Praxis Community
,
Der Client sendet an den Server in einem Timer immer eine 1 mit dem Code :
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ClientSocket1.Socket.SendText('1');
end;
Es kommt auch perfekt an aber ich will es addieren mit dem Edit1.text hier mal der Code vom Server
Code:
var
str: string;
zahl1:real;
zahl2:real;
ergebnis:real;
begin
str := Socket.ReceiveText;
zahl1 := strtofloat(edit1.text);
zahl2 := strtofloat(str);
ergebnis := zahl1+zahl2;
edit3.text := floatToStr(ergebnis);
Es kommt der Fehler :
Code:
---------------------------
Project1
---------------------------
'' is not a valid floating point value.
---------------------------
OK
---------------------------
Wie kann mann soetwas besser umsetzen?
Möchte halt immer das es immer +1 in 4 Sekunden addiert.