Aloc Est Aniversario

TIPOS DE INCLUSÃO
 Sem

Verificação alguma
 Sem Repetição e sem ordenação
 Com Repetição e Ordenada
 Sem Repetição e Ordenada

Exemplo Utilizado para
Implementação

INSERSÃO SEM VERIFICAÇÃO
BOTÃO CADASTRO

SEQÜÊNCIA DE PASSOS





Digitar as informações a serem inseridas
Armazenar as informações digitadas pelo usuário na variável do registro;
Atualizar o contador;

Obs: a variável do contador deve ser inicializada no início do programa
(Procedure FormCreate())

BOTÃO CADASTRAR
CÓDIGO EM DELPHI procedure TForm1.CadastrarClick(Sender: TObject); var d,m,a:word; begin Pessoa[cont].nome := Edit1.text;
Pessoa[cont].data := StrToDate(MaskEdit1.text);
DecodeDate(pessoa[cont].data,a,m,d);
cont := cont + 1;
Limpar.Click;
end;
Obs: a função DecodeDate() – serve para decompor a data em dia, mês e ano.

INSERSÃO SEM REPETIÇÃO DE NOMES
BOTÃO CAD_Sem_Rep.

INSERSÃO SEM REPETIÇÃO DE NOMES
BOTÃO CAD_Sem_Rep.

Neste caso os nomes podem ser inseridos em qualquer ordem mas os nomes não podem ser repetidos !!!!

SEQÜÊNCIA DE PASSOS





Verificar se o Vetor não está cheio;
Digitar o nome a ser inserido;
1ª Situação: o vetor está vazio

 Armazenar as informações na primeira posição;  Atualizar o contador;

1ª Situação – Vetor Vazio
Código em Delphi procedure TForm1.CAD_S_REPClick(Sender: TObject); var n:string[30]; d:TdateTime; i:integer; achou : boolean; begin achou := false; if ( cont > 100) then ShowMessage('O Vetor está Cheio !!') else begin n := Edit1.Text; d := StrToDate(MaskEdit1.Text); if (cont = 1) then begin pessoa[cont].nome := n; pessoa[cont].data := d; cont := cont + 1; end SEQÜÊNCIA DE PASSOS



2ª Situação: o vetor contem dados verificar se o nome já não existe;

 Se existir não permitir o cadastramento.

2ª Situação – Verificar se o nome já não existe else begin for i:= 1 to cont-1 do begin if (n = pessoa[i].nome) then begin ShowMessage('Este nome já Foi Cadastrado !!'); achou := true; end; end;

SEQÜÊNCIA DE PASSOS



3ª Situação: se o nome