Immer +1 nehmen

[Sereby]

Delphi-Quellcode:

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

[nahpets]

Hallo,

Zitat:

Zitat von luckys41

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

Nach Edit3 kommt kein Code mehr.

wie kommt denn dann die 11 nach Edit3.Text, ist Edit3.Text schon entsprechend vorbelegt?

[luckys41]

Ok es funktioniert mit dem Code :

Code:

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

Aber ich will das es immer +1 genommen wird und nicht auf 2 bleibt

In dem Client ist ein Timer von 4 Sekunden und jede 4te Sekunde sendet er eine 1 an den Server.

Aber wie kann ich es realisieren das es immer +1 genommen wird?

Mit freundlichen Grüßen,
luckys41

[SirTwist]

Hi,

Zitat:

Zitat von luckys41

Aber wie kann ich es realisieren das es immer +1 genommen wird?

wieso machst Du diese grauenhaften Konvertierungen von String nach Zahl und zurück? Speicher die Anzahl der "1"en in einer lokalen Variable, die du jedesmal um eins erhöhst, wenn Du vom Server etwas bekommen hast. Und diese Zahl schreibst Du dann in Dein Edit-Feld. Wozu ist das eigentlich ein Edit-Feld? Soll das irgendwer ändern können?

Delphi-Quellcode:

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

Gruß,
Sir Twist

[luckys41]

Danke, für die Antwort allerdings bleibt die 1 stehen in dem Edit Feld :/.

Ich verstehe es nicht mit der Anzahl es ist doch ein String und welche Zahl beinhaltet er?

lg

[mquadrat]

Wie du oben siehst wird ein "FloatToStr(Anzahl)" gemacht. Sprich Anzahl ist kein String, sondern ein Float. Anzahl muss an einer übergeordneten Stelle deklariert werden und nicht in der Methode selber. Sonst fängt er immer mit 0 an.

[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:

Delphi-Quellcode:

Edit1.Text := FloatToStr(StrToFloatDef(Edit1.Text,1));

[luckys41]

Es kommt immer eine Messsage Box mit einer 1.

[nahpets]

Hallo,

wo hast Du Anzahl definiert? Als globale Variabel oder in der Methode, die die Addition vornehmen soll?
Anzahl muss global definiert sein und einmal mit 0 initialisiert werden.

Oder probiere mal, ob Du ausschließlich mit

Delphi-Quellcode:

Edit1.Text := FloatToStr(StrToFloatDef(Edit1.Text,1) + 1);

auskommst. Von der Aufgabenstellung her, sollte das eigentlich reichen.

[SyntaxXx]

Also im einfachsten falle wäre es so:

x : x + 1