Autor
"its not a valid floating point value.
asi tal cual, empiezo a odiar los numeros decimales
alguien tiene alguna idea, o recuerda ver algo similar por aqui
Código:
procedure TFControl.Timer1Timer(Sender: TObject);
var
Buffer: string;
temp: Real;
fecha: string;
hora: string;
begin
Comport1.WriteStr('t');
Sleep (500);
ComPort1.ReadStr(Buffer,6);
label1.Caption := Buffer;
temp := StrToFloat(Buffer);
Fecha := FormatDateTime ('yyyy-mm-dd', Now());
Hora := FormatDateTime ('hh:mm:ss', Now());
end;
end.
var
Buffer: string;
temp: Real;
fecha: string;
hora: string;
begin
Comport1.WriteStr('t');
Sleep (500);
ComPort1.ReadStr(Buffer,6);
label1.Caption := Buffer;
temp := StrToFloat(Buffer);
Fecha := FormatDateTime ('yyyy-mm-dd', Now());
Hora := FormatDateTime ('hh:mm:ss', Now());
end;
end.
algo asi, supongo que es un error en lo de StrToFloat pero no mi no tener idea
En línea
