ponteiros em delphi

Question

como eu fa�o para declarar e utilizar ponteiros em delphi,caso algu�m tenha um material legal que possa me envia piaum3@yahoo.com.br caso queira respostar e postar no f�rum pode ser tamb�m.

sem mais

Nildo · Answer

Isso � um assunto muito longo. Eu acho melhor voc� nos dizer sua necessidade para que possamos ajud�-lo....

Bruno Belchior · Answer

amigo como o colega acima disse � um assunto complexo e com pouca utilizada na pr�tica no mundo �Delphi� � mais ultilizado por C e C++, mas s� uma pr�via a decalara��o � da mesma forma que uma vari�vel por�m prescedida do s�mbolo ^ ex: var i:^integer; ele cria um ponteiro de inteiro para trabalhar com sua posi��o na mem�ra basta trabalhar simplesmente com o i, mas para acessar o conte�do dele (vari�vel Din�mica) ultiliza-se o nome da vari�vel (no caso i) e depois o mesmo s�mbolo ^, ex.: Edit1.Text := IntToStr(^i); se interessar me mande seu e-mail q te mando um trabalho de Faculdade meu sobre o assunto totalmente feito em Delphi, mas como j� disse p/ Delphi n�o vejo necessidade de ponteiro (salvo casos extremos)... espero ter ajudado.

Bruno Belchior · Answer

amigo como o colega acima disse � um assunto complexo e com pouca utilizada na pr�tica no mundo �Delphi� � mais ultilizado por C e C++, mas s� uma pr�via a decalara��o � da mesma forma que uma vari�vel por�m prescedida do s�mbolo ^ ex: var i:^integer; ele cria um ponteiro de inteiro para trabalhar com sua posi��o na mem�ra basta trabalhar simplesmente com o i, mas para acessar o conte�do dele (vari�vel Din�mica) ultiliza-se o nome da vari�vel (no caso i) e depois o mesmo s�mbolo ^, ex.: Edit1.Text := IntToStr(^i); se interessar me mande seu e-mail q te mando um trabalho de Faculdade meu sobre o assunto totalmente feito em Delphi, mas como j� disse p/ Delphi n�o vejo necessidade de ponteiro (salvo casos extremos)... espero ter ajudado.

Nildo · Answer

Normalmente voc� usa esse indicador ^ para fazer acesso direto a mem�ria. Por exemplo:

var
   num: ^Integer;
begin
   Num := Pointer( $bbbbbbbb );
   ShowMessage( IntToStr( Num^ ) );
end;

Voc� est� falando atribuindo o NUM como sendo o ponteiro da mem�ria localizada em 0xBBBBBBBB . Toda vez que voc� ler esse Num^ ele vai te retornar o que h� exatamente naquela localidade. E quando voc� for escrever algo neste local de mem�ria, voc� escreve atribuindo valor ao Num^.

S · Answer

Para declarar um ponteiro � simples:

identificador:^tipo;

Exemplos:

Codigo:^Integer;
Nome:^String;

Antes de usar o ponteiro voc� tem que armazenar mem�ria para ele, use o seguinte comando:

New(identificador);
ou
GetMen(identicicador,mem�ria);

E para liberar a mem�ria do ponteiro use o seguinte comando:

Dispose(identificador);
ou
FreeMen(identificador,mem�ria);

Nota:o par�metro m�moria � um integer que indica a mem�ria em bytes a ser alocada ou liberada.

Nunca atribua um valor ao ponteiro e sim para o valor que ele aponta:

Exemplo:
Codigo:^Integer;
begin
Codigo:=1; //Errado
Codigo^:=1; //Certo

Para obter um valor de uma vari�vel use o seguinte comando:

identificador:=@variavel;

Exemplo:
Codigo:^Integer;
Valor:Integer;
begin
Codigo:=@Valor;

Christian_adriano · Answer

Ol� Amigo �S�,vc pode me d� uma m�o, � o seguinte, gostaria de �Percorrer� todo o ponteiro. Vc sabe como fazer isso ?Em baixo vou coloca parte do meu c�digo.Obs. Estou usando o Pascal (Turbo Pascal).-------------------------------------------------------------------------------------type { fifo }  Apontador = ^Estados;  Estados = record    Chave: Integer;    NomeEstado: String;    Proximo: Apontador ;  end; { lifo }  Apont = ^Nodo;  Nodo = record    Chave: Integer;    NomeCidade: String;    Seguinte: Apont;  end ;{ Variaveis Globais }var Primeiro, Ultimo: Apontador ; { controla lifo - cidades } Topo: Apont; { controla fifo - estados}  procedure varrerLitas;  var    ptaux, Inicio  : apontador ;     ptaux2 : Apont ;   begin    if (ultimo = nil) and (Topo = nil) then       Exit;    ptaux := Ultimo;    ptaux2 := Topo;    ClrScr; { limpa a tela }    WriteLn(�Listagem: �);    WriteLn(��);    { Lista os Estados }    while (ptaux <> Primeiro) do      begin           Write(�Estado: �, ptaux^.nomeestado);           WriteLn(��);           { Lista os Municipios de cada Estado }           while (ptaux^.Chave = ptaux2^.Chave) do             begin                 write(�     Municipio: �, ptaux2^.NomeCidade);                 WriteLn(��);                 Prior(ptaux2); {volta ponteiro de Municipios ******** AKI}             end;           Prior(ptaux); {volta ponteiro de Estados - AKI TB}     end;  end;------------------------------------------------------------------------...

Beppe · Answer

Vc quer a implementa��o de �Prior�? Seguir o pr�ximo elemento � simples.

procedure Prior(var Nodo: PListaEncadeada);
begin
  if Nodo <> nil then
    Nodo := Nodo^.Proximo;
end;

Isabelct · Answer

Ol�,Tem um tutorial sobre ponteiros no endere�o [url]//joaomorais.com.br/pascal/push.php?download=58594639[/url]. Aqui voc� vai conhecer tudo o que precisa saber sobre o funcionamento dos ponteiros....

Christian_adriano · Answer

Ol� colega �Beep�, naum deu muito certo...
vou colocar uma parte do meu c�digo pra c analisar se tah certo.

--------------------------------------------------------------------------------------
{ ***********/ Varrer Listas \***************}
procedure varrerListas;
var
ptaux : apontador ;
ptaux2 : Apont ;
begin

if (ultimo = nil) and (Topo = nil) then
Exit;

ptaux := Ultimo;
ptaux2 := Topo;

ClrScr; { limpa a tela }

WriteLn(� >>>>>> Listagem <<<<<<< �);
WriteLn(��);

{ Lista os Estados }
while (ptaux <> Primeiro) do
begin
Write(� -> Estado: �, ptaux^.nomeestado);
WriteLn(��);
{ Lista os Municipios de cada Estado }
while (ptaux^.Chave = ptaux2^.Chave) do
begin
write(� -> Municipio: �, ptaux2^.NomeCidade);
WriteLn(��);
ptaux2 := ptaux2^.Seguinte; {volta ponteiro de Municipios}
end;

ptaux := ptaux^.Proximo; {volta ponteiro de Estados}
end;

ReadKey; { Pause }

end;
--------------------------------------------------------------------------------------

Grato.

[]�s.

Christian.

Beppe · Answer

Pelo que eu percebi, Ultimo(uma fifo) aponta para uma lista de estados e Topo(uma lifo) � uma lista de cidades. Vc precisa separar as cidades por estado, correto?

Primeiro, vc naum fez a checagem certa para o caso de uma das listas ser nula(vc checa, mas naum fez certo...)

Segundo, no loop interno(sobre as cidades), vc naum est� checando por nil. Existe um sentinela ou algo do tipo?

Christian_adriano · Answer

Ol� �Beppe�,Ent�o como vc me sugeria para a implementa��o ?Grato.Christian....

Beppe · Answer

Oi.Eu sigo a pol�tica de n�o resolver trabalho de faculdade de terceiros. :wink: Esforce-se um pouquinho e entenda a mat�ria. Se precisar visite o link que a Isabel te passou. :wink:...

Marioguedes · Answer

Sugiro o Livro: Algoritimos e Estruturas de Dados com Delphi de Julian Bucknall...