Port com et virgule flottante

Le probleme vient du fait que ton socket est vide lorsque tu essai
de la convertion vers un Float

Code:

1
2
3
 
Edit2.Text:= Socket.ReceiveText;       //Affiche la temperature ex:21.5   
test := strtofloat(Socket.ReceiveText);//convertie en float mais Socket.ReceiveText est maintenant vide!

ce qui te donne le message:
'' n'est pas une valeur en virgule flottante correcte.

autrement dit... une chaine vide ('') n'est pas une valeur

Essaie ceci

Code:

1
2
3
Edit2.Text:= Socket.ReceiveText;       //Affiche la temperature ex:21.5   
test := strtofloat(Edit2.Text); //Convertie en float La valeur Affichée.

En cas de problème avec la communication entre la sonde et ton pc,
je te propose aussi d'inclure un try except
ton programme sera ainsi plus stable...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
  var test : double;
begin
    try
        Edit2.Text:= Socket.ReceiveText;
        test := strtofloat(Edit2.Text);
        With Series2 do
        Begin
            Add(test, TimetoStr(Time), clYellow ) ;
        end;
    except
        //en cas de probleme de communication,
        //on pourrait recevoir n'importe quoi
        //est la convertion sera impossible
        //alors on fait rien de special...mais on plante pas.
        on EConvertError do {Nothing!} ;
    end;
end;

J'espère le tout conforme.