Ponteiros- Clube Delphi 118

Mesmo nas linguagens de “alto nível” como Delphi, ponteiros são o assunto de nível mais baixo que podemos tratar. Isso porque estaremos lidando diretamente com endereços da memória. Há quem defenda que ponteiros são coisa do passado e que não devem mais ser usados. Mas isso é um engano. Uma rápida olhada no código–fonte da VCL e da RTL pode revelar o tamanho uso que as próprias bibliotecas do Delphi fazem.

E mesmo em ambientes gerenciados como Python, Java, Ruby e .NET, embora não usemos ponteiros diretamente ou explicitamente, a máquina virtual, geralmente escrita em C/C++, faz um extenso uso de ponteiros. No próprio Delphi, todo objeto, cuja memória é alocada dinamicamente, é um ponteiro, como veremos mais adiante.

Para armazenar valores nós declaramos variáveis. Declarar uma variável significa reservar um espaço na memória onde poderemos armazenar um valor qualquer. Agora imagine que cada área da memória contém um endereço numérico. Ponteiros trabalham diretamente com os próprios endereços. Ou seja, você pode acessar um valor através de seu endereço na memória em vez de utilizar uma variável.

No Delphi utilizamos o operador ^ (circunflexo) para declarar uma variável do tipo ponteiro. Usamos também o operador @ precedendo variáveis “normais” para obter o endereço delas. O inverso de @ seria usar ^ depois de uma variável-ponteiro, para que possamos acessar o seu valor. Um ponteiro recém declarado que não aponta para nenhum lugar tem o valor nil.

Antes de iniciarmos a nossa aplicação, atente para a Figura 1 que exibe um exemplo do funcionamento de um ponteiro.

Figura 1. Um ponteiro apontando para um determinado endereço na memória, que contém o valor 2

Vamos desenvolver uma aplicação Delphi e ver na prática como tudo isso funciona (no Delphi crie um projeto Win32). Criaremos um botão para cada exemplo, nomeados como btEx<yy> onde yy será o número do nosso exemplo. Os captions de cada botão serão análogos, como “Ex 01”, “Ex 02” e assim por diante. Modifique a propriedade Name do formulário para frmPonteiros e informe o Caption “Trabalhando com Ponteiros”, por último salve sua unit como uPonteiros.pas e seu projeto como Ponteiros.dproj.

Declarando ponteiros

No nosso primeiro exemplo vamos declarar um ponteiro para integer. Isso significa que teremos um endereço de memória apontando para um local onde será armazenado um valor inteiro. Para ver como funciona o mecanismo de ponteiros iremos declarar duas variáveis do tipo integer e obter o endereço de cada uma, e posteriormente o valor.

Não podemos esquecer de inicializar o nosso ponteiro com nil ou já com um endereço válido, caso contrário ele virá com um endereço randômico de memória, provavelmente apontando para algum “lixo” ou até mesmo para a área de instruções. Esquecer de inicializar ponteiros pode causar acessos indevidos a áreas protegidas de memória e até a corrupção de dados e instruções. Adicione ao formulário o primeiro botão e digite o código da Listagem 1.

Listagem 1. Declaração de ponteiros

procedure TfrmPonteiros.btEx01Click(Sender: TObject); var variavel1: integer; variavel2: integer; ponteiro: ^integer; begin //Atribuindo um valor às variáveis variavel1 := 123; variavel2 := 246; //inicializando o ponteiro com nil ponteiro := nil; if ponteiro = nil then ShowMessage('O ponteiro ainda não aponta para lugar nenhum'); ShowMessage('O endereço de memória da variável 1 é: ' + inttostr(integer(@variavel1)) ); ShowMessage('O endereço de memória da variável 2 é: ' + inttostr(integer(@variavel2)) ); ponteiro := @variavel1; ShowMessage('O endereço atual do ponteiro é: ' + inttostr(integer(ponteiro)) ); ShowMessage('O valor que ele aponta é: ' + inttostr(integer(ponteiro^)) ); ponteiro := @variavel2; ShowMessage('O endereço atual do ponteiro é: ' + inttostr(integer(ponteiro)) ); ShowMessage('O valor que ele aponta é: ' + inttostr(integer(ponteiro^)) ); //mostrando os tamanhos ShowMessage('O tamanho da variavel 1 é: ' + inttostr(sizeof(variavel1)) ); ShowMessage('O tamanho da variavel 2 é: ' + inttostr(sizeof(variavel2)) ); ShowMessage('O tamanho do ponteiro é: ' + inttostr(sizeof(ponteiro)) ); end;

Os ponteiros que estamos usando aqui são “tipados”, ou seja, são ponteiros para um tipo definido, no caso integer. As três últimas linhas da listagem mostram o tamanho das variáveis, em bytes. As variáveis 1 e 2 são do tipo integer, por isso possuem 4 bytes. O ponteiro também possui 4 bytes, porém, todo ponteiro é, no fundo, um integer, e na arquitetura de 32 bits um ponteiro também tem 32 bits, ou seja, 4 bytes. Experimente trocar o tipo da variável de integer para byte e verá que enquanto as variáveis 1 e 2 tiverem 1 byte, o ponteiro continuará tendo 4 bytes." [...] continue lendo...