Fórum deletar registro em um array #166611
26/06/2003
0
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
Curtir tópico
+ 0Posts
26/06/2003
Marcelo Saviski
vetor[num] := nil;
Gostei + 0
26/06/2003
Cabelo
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
Gostei + 0
26/06/2003
Eric.miranda
Gostei + 0
26/06/2003
Cabelo
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;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)