Immer +1 nehmen

[luckys41]

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.

[himitsu]

Zitat von luckys41:

Es kommt auch perfekt an aber ich will es addieren mit dem Edit1.text hier mal der Code vom Server

Wo tritt denn der Fehler auf? (bei Zahl1 oder Zahl2)

irgendwo muß ja nichts drin sein, lauf Fehlermeldung.

Delphi-Quellcode:

zahl1 := strtofloat(edit1.text);
zahl2 := strtofloat(str);

[Bernhard Geyer]

Auch wenn ich eine GUI in einem Server nicht sehr sinnvoll sehe (Außer zu debugzwecken), so schau dir für dein problem mal StrToFloatDef() in der Onlinehilfe an. (Ein leerer String ist nunmal keine Zahl).

[luckys41]

Der Fehler tritt auf bei zahl2 := strtofloat(str);

[nahpets]

Hallo,

das sieht so aus, als würdest Du hierstr := Socket.ReceiveText; nichts erhalten.

[Sherlock]

Zitat von nahpets:

Hallo,

das sieht so aus, als würdest Du hierstr := Socket.ReceiveText; nichts erhalten.

Zumindest etwas anderes als nur eine Zahl.

Sherlock

[himitsu]

Zitat von nahpets:

das sieht so aus, als würdest Du hier ... nichts erhalten.

Zitat von luckys41:

Es kommt auch perfekt an aber

drum hatte ich ja gefragt

[luckys41]

Code:

edit2.Text := str;
 zahl1 := strtofloat(edit1.text);
 zahl2 := strtofloat(edit2.text);
ergebnis := zahl1+zahl2;
edit3.text := floatToStr(ergebnis);

ein bisschen umgeschrieben.

Im Edit3 steht dann immer nur 11 und dann kommt der Error.

[nahpets]

Hallo,

Zitat von luckys41:

Im Edit3 steht dann immer nur 11 und dann kommt der Error.

Das hieße doch, dass der Fehler erst später auftritt. Was kommt den in Deinem Quellcode nach der Zuweisung zu Edit3.Text?

[luckys41]

Entschuldigen sie das ich mich falsch ausgedrückt habe, der Fehler tritt auf bei der Berechnung.

Nach Edit3 kommt kein Code mehr.