como moldear un puntero ?

[gaston260]

Buenas noches ! mi pregunta es esta , como se puede moldear un puntero de tipo P: PByte y convertirlo en un dato entero ?

[[xEsk]]

Imagino que preguntas como convertir un PByte a Byte, para eso debes hacer un casting a Byte:

Ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  puntero: PByte;

begin
  // obtenemos un PByte con el numero 13
  puntero:=PByte(13);
  // mostramos el valor del byte
  ShowMessage(IntToStr(Byte(puntero)));
end;

Saludos

[gaston260]

Hola amigo gracias por contestar , no se nada de punteros esto es algo valido
Código Delphi [-]var P: PByte; begin P:= PByte(lpData); for i:= 1 to dwBytesRecorded do begin Canvas.LineTo(0,P^); Edit1.Text := IntToStr(p^); inc(P); end; end;


esto es solo un trozo de codigo , me interesa saver esta linea Edit1.Text := IntToStr(p^);

[gaston260]

Hola amigo gracias por contestar , no se nada de punteros esto es algo valido
Código Delphi [-]var P: PByte; begin P:= PByte(lpData); for i:= 1 to dwBytesRecorded do begin Canvas.LineTo(0,P^); Edit1.Text := IntToStr(p^); inc(P); end; end;


esto es solo un trozo de codigo , me interesa saver esta linea Edit1.Text := IntToStr(p^);

[[xEsk]]

Del código que has puesto, te puedo decir que debes cambiar 2 cosas, y dejarlo algo parecido a esto:

Código Delphi [-]
var
  P: PByte;
begin
  P:= PByte(lpData);
  for i:= 1 to dwBytesRecorded do
    begin
      Canvas.LineTo(0,Byte(P));
      Edit1.Text := IntToStr(Byte(p));
      inc(P);
    end;
end;

Saludos

[gaston260]

gracias amigo lo voy a probar y te comento y disculpame por la sintaxis .

[gaston260]

var
p byte;
i:integer;
begin
i:= 100; //asigná a una variable el valor que queres
p:=@i; // al puntero de asignas la direccion de i, p vale lo mismo que i
i:=P^; ahora lo apuntado por p lo copiamos a i
edit1.text:= inttostr ; // mostramos i
edit1.text:= inttostr(p^); o tambiem mostramos lo apuntado por p

esto me lo paso un gran amigo que es programador (es un capo !!)

Gracias Maxi