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

[[Chris]]

Empezado por 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

Debes cambiar el tipo de la variable P, de Byte a Pointer.

Básicamente, en el código que has posteado expresas el manejo básico de los punteros.

Código Delphi [-]
un_puntero_a_una_variable = @Variable; // la arroba devuelve la dirección de la
                                                       // variable que le sigue.
valor_contenido_en_el_puntero = Puntero^; // el simbolo ^ devuelve el valor 
                                                            //almacenado en la dirección que le antecede.

Recuerda que siempre es recomendable utilizar punteros de tipos, esto es: no utilices una variable de tipo Pointer que es generíco, sino más bien para guardar la dirección a un entero, utiliza PInteger; para una cadena utiliza PString o PAnsiChar y así sucesivamente. Tengo entendido que Delphi predeterminadamente declara tipos de puntero para sus tipos de datos básicos incluyendo los objetos. Te recomiendo que leas el capitulo acerca de los puntero que es incluído en la ayuda de Delphi.

Saludos.