Flavy

[Guest FLavy]

Ola galera estou com um trabalho em delphi pra fazer um trabalho pra faculdade e não estou conseguindo tenho que criar um apontador no delphi que tenhas as opçoes :

Este trabalho consiste em elaborar e desenvolver dois TAD Listas. O primeiro deverá utilizar a estrutura por arranjo e o segundo por apontador. Nos dois tipos a serem criados deve-se considerar um tipo de dados composto e contemplar as seguintes operações sobre este tipo:

1. Operação de inicialização da lista;

2. Operação para inserir um elemento na lista de forma ordenada;

3. Operação para retirada de um elemento especificado pelo usuário;

4. Operação para buscar um determinado elemento;

5. Operação que mostra os elementos inseridos na lista.

Acho que não expliquei o que preciso não estou conseguindo fazer o inicio consigo fazer as procedures de inicializar inseri, retirar, buscar não estou conseguindo e fazer o cabeçario esta as declarações dos type no dephi

veja o que fiz

type

TBTNCANCELAR = class(TForm)

Label1: TLabel;

Btninserir: TBitBtn;

BtnRetirar: TBitBtn;

btnbuscar: TBitBtn;

bntlistar: TBitBtn;

btnsair: TBitBtn;

tipoitem = record

chave:tipochaves;

end;

celula=^record

item:tipointem ;

prox:apontador;

end;

tipolista=record

promeiro:apontador;

ultimo:apontador;

end;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

BTNCANCELAR: TBTNCANCELAR;

implementation

{$R *.DFM}

procedure TBTNCANCELAR.FormCreate(Sender: TObject);

begin

end;

procedure insere(x:tipoitem;var lista :tipolista);

begin

new(lista.ultimo^.prox);

lista.ultimo:=lista.ultimo^.prox;

lista.ultimo^.item:=x;

lista.ultimo^.prox:=nil;

end;

procedure retira(p:apontador;var lista:tipolista;var item:tipoitem);

var que:apontador;

begin

if vazia(lista)or(p=nil)or(P^.prox=nil) then

showmessage('Erro :lista vazei o posição não existe')

else begin

que:p^.prox;item;p^.prox:=que^.prox;

if p^.prox=nil then lista.ultimo:=p;

despose(que)

end;

end.

da erro longo na linha

celula=^record

vocês pode me ajudar grata