Fórum deletar registro em um array #166611

26/06/2003

0

bom dia galera.. estou com a seguinte dúvida..
Type
TAgenda = record
strnomecompleto: string[30];
strendereco: string[30];
strbairro: string[15];
strcidade: string[15];
strestado: string[2];
strfoneresidencial,strfonecomercial,strcelular:string[15];
chrstatus: char;
end;

var
FAgenda: textfile;
DadosAgenda:array[1..5] of TAgenda;

a dúvida é que por exemplo eu preencho um registro que seria do dadosagenda[1] depois outro que seria dadosagenda[2] e assim por diante.. somente no final ou seja qdo fecho a aplicação eu gravo esse array num arquivo .txt..
eu queria saber se tem como eu deletar este arquivo do array.. uma coisa tipo
delete(dadosagenda[1]);// isso sei que não funciona, mas serve para ilustrar a explicação..

obrigado
Eric


Eric.miranda

Eric.miranda

Responder

Posts

26/06/2003

Marcelo Saviski

Serve isso?
vetor[num] := nil;


Responder

Gostei + 0

26/06/2003

Cabelo

tem sim, como vc utiliza campos string neste vetor, vc só precisa atribuir ´´ para o campo que vc quer
exemplo :
DadosAgenda[1].strnomecompleto := ´´;
e assim por diante, depois vc deve trocar os dados dos próximos regitros para este indice, liberando assim a última posição do vetor

Espero ter te ajudado

Sem mais

Cabelo


Responder

Gostei + 0

26/06/2003

Eric.miranda

mas como vou indexar novamente os outros registros??


Responder

Gostei + 0

26/06/2003

Cabelo

faça da seguinte maneira,
DadosAgenda[1].strnomecompleto := DadosAgenda[2].strnomecompleto
DadosAgenda[2].strnomecompleto := ´´;

Até o fim

Para te facilitar utilize um for até o fim do vetor

for v_i := [indice do vetor] to length(DadosAgenda) - 1 do
begin
DadosAgenda[v_i].strnomecompleto := ´´;
DadosAgenda[v_i].strnomecompleto := DadosAgenda[v_i + 1].strnomecompleto;
end;


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar