Extraer n caracteres de una cadena

[[maeyanes]]

Empezado por escafandra

Revisa si tu cadena tiene la longitud adecuada (mayor o igual a 10)...
Me llama la atención que marques en negrita los caracteres 9 y 10 y la instrucción sea Copy(Str, 10, 2);

¿No debería ser:?

Código Delphi [-]
if Length(Str) >= 10 then 
  SubWord1 := '$' + Copy(Str, 9, 2);

Saludos.

Si tomas en cuenta el :, los caracteres si son el 10 y 11...

Saludos...

[[escafandra]]

Empezado por maeyanes

Si tomas en cuenta el :, los caracteres si son el 10 y 11...

Saludos...

Muy cierto maeyanes, la presvicia me jugó una mala pasada.

Saludos.

[[duilioisola]]

Prueba enviando cada paso al memo, para ver donde se produce el error:

Código Delphi [-]
procedure TFMain.Com_SerieRxChar(Sender: TObject; Count: Integer);
var
  Str : String;
  SubWord1 : String;
  Word1 : Integer;
begin 
  Memo1.Lines.Clear;
  Memo1.Lines.Add('Inicio');

  Com_Serie.ReadStr(Str, Count);
  Memo1.Lines.Add('Str: '+Str);
  Memo1.Lines.Add('Count: '+IntToStr(Count));

  // Verifico que haya mas de 11 caracteres
  if Length(Str) >= 11 then
     Str := copy(Str, 10, 2)
  else
     Raise Exception.Create('Error al leer COM. No han llegado caracteres suficientes');
  Memo1.Lines.Add('copy(Str,10,2): '+Str);

  SubWord1 := '$' + Str;
  Memo1.Lines.Add('SubWord1: '+SubWord1);

  Word1 := strtoint(SubWord1 );;
  Memo1.Lines.Add('Word1: '+IntToStr(Word1));
end;

[Panasys]

Exactamente amigo, el problema es que no me esta llegando la cadena completa que especifique mas arriba en el primer post.

Hace un rato hice lo que planteas y me di cuenta de eso, pero planteare en otro post el problema del ComPort.

Es un problema con el componente.

Y Escafandra tienes razon, era 9,2 la posicion del copy. Pero igual no funciona porque seguramente no estoy utilizando correctamente la libreria del puerto serie.

Muchísimas gracias por la ayuda, igual me sirvio para recorrerme el foro y aprenderme otras cosas !!!

Un abrazo