Cita:
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; for i := 1 to 2 do begin for j := 1 to 15 do begin stringgrid1.Cells[j,i] := inttohex(Buffer[indice],2);
inc(indice);
end;
end;
end;
Salud OS