Ver Mensaje Individual
  #1  
Antiguo 18-09-2010
gio013 gio013 is offline
Miembro
 
Registrado: abr 2010
Posts: 22
Reputación: 0
gio013 Va por buen camino
extraer un valor de un array

holaxxx
se supone que en un array llega por usb y uso el componente jedi para trabajar el usb ,el array viene en integer,
la pregunta es.....¿como hago para utilizar el valor del array?
esto es lo que tengo...
Código Delphi [-]
procedure TForm1.Lectura(HidDev: TJvHidDevice; ReportID: Byte; const Data: Pointer; Size: Word);
var
  I: Integer;
  Str: string;
  Recibe: array [0..1] of string;

begin
  for I := 0 to Size - 1 do
    begin
    Recibe[i] := string(PChar(Data)[i]);
    Str :=Format('%.2x ', [Cardinal(PChar(Data)[i])]);
    memo1.Text:=memo1.Text+chr(13)+chr(10)+ Recibe[0];
    end;
end;

graxxx por leer...
Responder Con Cita