Foros Club Delphi - Ver Mensaje Individual - Quitar datos recibidos de un puerto serial

[egostar] · #2 05-09-2008

Hola

Se me ocurre que la cadena que recibas busques la substring 'WT:' y de ahi copies el dato de los Kg.

Por ejemplo

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var
  cadena: string;
  indice: integer;
begin
  cadena := 'US, NT, WT: +0.250 Kg ';
  indice := pos('WT:',cadena);
  if indice > 0 then
     showmessage(copy(cadena,indice+5,5));
end;

Salud OS