[[egostar]]

Empezado por JoseFco

Hola egostar. eso lo probe el otro dia con 17 y 14. Con 17 dejo de perder un byte y entonces pierdo dos. con 14 no recuierdo bien pero tampoco trabaja asi.
Con 16 me pone la primera linea perfecta: 00 12 00 72 12 00 7E B4 80 04 80 34 80 F6 75 A0
La segunda linea debe ser asi ---------- (FE)12 00 AF 75 A0 FD 12 00 AF 75 A0 FB 12 00 AF
El primer caracter de la segunda linea se pierde y la data gana un paso o sea se corre un grid.
Un Saludo.

El problema que tienes amigo [pepe-paco], es que se te está olvidando que las celdas del stringgrid comienza de 0, intenta hacerlo con este código, obviamente solo estoy enviando los primeros 30 caracteres, modificalo a manera de que lea todos los caracteres del Buffer

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i,j,indice: integer;
begin
  indice := 1; //Suponiendo que buffer sea un array de 1...x 
  for i := 1 to 2 do begin  //2 renglones, cambialo a los renglones que esperas
     for j := 1 to 15 do begin //15 columnas
         stringgrid1.Cells[j,i] := inttohex(Buffer[indice],2);
         inc(indice);
     end;
  end;
end;

Salud OS