duvida sobre deletar parte de um array

Question

Boa tarde, Gostaria de saber como posso fazer para apagar um item de um array e deixar meu array depois de apagado ordenado corretamente sem espa�os vazios no meio e sim no final. obrigado...

Rjun · Answer

O que voc� guarda nesse array? J� pensou em usar lista?...

Muri · Answer

No array uma serie de coisas por exemplo.
strNomecompleto: string[60];
strEndereco: string[50];
strIdade: string [3];
strDatadeNascimento : TDateTime; //string[8];
strSexo: string[9];
strCidade: string[40];
strTelefone: string[16];
strSituacao: string[255];
strReceituario: string[255];
strDataAtual: TDateTime;
strAtendidoPor: string[30];
Isso ai � que esta indo emcada posi��o do array.
Ent�o eu preciso apagar um array que contem todas essas informa��es, mas no momento em que apagar essa posi��o tenho que fazer a posi��o vazia ir para o final e ainda n� sei como posso fazer isso.

Joaoshi · Answer

Colega, se n�o existir nada mais elegante, o jeito � criar uma fun��o que traga os dados para a posi��o �exclu�da� e assim at� a �ltima posi��o.
Apagou o 2 -> pega o que esta no 3 e passa para 2.

Espero ter ajudado.

Rjun · Answer

Ainda insisto que teria uma solu��o muito mais elegante se utilizasse uma lista de objetos....

Javapaulomg · Answer

[quote:d36656697e=�RJun�]Ainda insisto que teria uma solu��o muito mais elegante se utilizasse uma lista de objetos.[/quote:d36656697e]Concordo contigo, a solu��o mais adequada seria uma lista de objetos, que por sua vez teria objetos que cont�m esses atributos acima citados.Outra solu��o n�o t�o interessante do ponto de vista de uma boa pratica seria um array de array....

Martins · Answer

Eu tb acho que usando StringList vc poder� obter o resultado esperado, acho q � a forma mais elegante e de melhor manuten��o....

Rjun · Answer

Acho que TStringList n�o resolve. Um TObjectList seria o mais indicado....

Muri · Answer

Valeu pelas dicas pessoal.To tentando fazer pelo modo de uim array de um array, anteriormente estava ordenando em ordem alfabetica fa que n�o estou trabalhando com banco de dados ent�op agora ficou mais dificil.Vlw...

Muri · Answer

Ola pessoal consegui um jeito e funcionou bem..Fiz um for que vai subescrever a posi��o ao invez de deletar.Obrigado pelas dicas!...

Marco Salles · Answer

Se voce estava com dificuldade de Fazer com TstringList ou com
TObjectList , segue abaixo um exemplo bem facim que voce pode
estudar e adaptar as sua necessidades ...

__defini��o da classe

...... 
 TPessoa = Class
   endereco:string;
   cidade:string;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//definidino Uma Lista de Objetos
var
 ColecaoDePessoas:TstringList;
 umaPessoa:Tpessoa;

//No onShow Cria a Lista e Atribui Sortede:=True -->> [b:954dc77759]Sua Lista estar //sempre Ordenada sem nenhum esfor�o[/b:954dc77759]
[b:954dc77759]procedure TForm1.FormShow(Sender: TObject);
begin
ColecaoDePessoas:=TstringList.Create;
ColecaoDePessoas.Sorted:=true;
end;[/b:954dc77759]

//Adicinar um Objeto Pessoa a Sua Lista

procedure TForm1.EntradaDeDadosClick(Sender: TObject);
begin
umaPessoa:=TPessoa.Create;
umaPessoa.endereco:=edtEndereco.Text;
umaPessoa.Cidade:=edtCidade.Text;
ColecaoDePessoas.AddObject(edtNome.Text,umaPessoa);
end;

/)Deletar uma Pessoa da Lista

procedure TForm1.DeletarItemsClick(Sender: TObject);
var
localizar:integer;
begin
Localizar:=ColecaoDePessoas.IndexOf(edtNome.Text);
if Localizar > -1 Then
  begin
    ColecaoDePessoas.Delete(Localizar);
  end;
end;

//Exibir Dados das Pessoa nun Memo por Exempllo

procedure TForm1.ExibirDadosClick(Sender: TObject);
var
i:integer;
begin
 for i:=0 To ColecaoDePessoas.Count-1 do
   begin
     memo1.Lines.Add(ColecaoDePessoas.Strings[i]);
     memo1.Lines.Add(TPessoa(ColecaoDePessoas.Objects[i]).endereco);
     memo1.Lines.Add(TPessoa(ColecaoDePessoas.Objects[i]).cidade);
     memo1.Lines.Add(��);
   end;
end;

//No OnClose destruir os Objetos e a Lista dos Objetos

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i:integer;
begin
 For i:=0 To ColecaoDePessoas.Count-1 do
   TPessoa(ColecaoDePessoas.Objects[i]).free;
 Freeandnil(ColecaoDePessoas);
end;

considera��s Finais ...
Sua Lista esta Ordenada por [b:954dc77759]Nomes[/b:954dc77759] ... Se voce quiser ou necessitar de Ordena��o por [b:954dc77759]Cidades , Endere�os [/b:954dc77759]enfims , ai voce deve usar [b:954dc77759]CallBack , juntamente com ListS.hort [/b:954dc77759]... Tem neste mesmo site um exemplo meu , deve ter de outros tb , de como ordenar uma Lista De Objetos pelos iversos Atributos que compoem a Lista

Brunodsr · Answer

Minha sugest�o � optar pelo mais simples. No caso, ou com uma lista (j� implementada no delphi TList, TStrings, TStringList) ou com uma �rvore bin�ria.

Eu faria com o TStringList. � mais simples. Tipo:
Criaria uma classe com cada array desse dai sendo um atributo e depois inseria na lista, colocando o campo chave como id. Da� era s� posicionar pelo ID e mandar excluir. O resto ele faz s�. Facil ne.

Um abra�o,

Bruno Rocha

Muri · Answer

Valeu pela ideia, mas acabei fazendo de outro outra forma mais facil um pouco, sobscrevendo o dado que iria ser excluido. A duvida agora � simples, quero colocar um relogio na tela do meu form, para que na hora em que estiver executando o programa ele fique contando HH:MM:SS e que isso seja vis�vel, se poder me ajudar fico grato. Abra�o!

Coloca um Label no teu form e um TTimer tb.

Clique duas vezes no TTimer do seu form e digite o c�digo abaixo:

Labelx.Cpation := TimeToStr(Now);

Espero q seja isso q vc est� querendo.

Martins · Answer

[quote:590bf3009e=�muri�]Valeu pela ideia, mas acabei fazendo de outro outra forma mais facil um pouco, sobscrevendo o dado que iria ser excluido. A duvida agora � simples, quero colocar um relogio na tela do meu form, para que na hora em que estiver executando o programa ele fique contando HH:MM:SS e que isso seja vis�vel, se poder me ajudar fico grato.Abra�o![/quote:590bf3009e]Coloca um Label no teu form e um TTimer tb.Clique duas vezes no TTimer do seu form e digite o c�digo abaixo:[code:1:590bf3009e]Labelx.Cpation := TimeToStr(Now);[/code:1:590bf3009e]Espero q seja isso q vc est� querendo....

Martins · Answer

[quote:43579d3303=�Martins�][quote:43579d3303=�muri�]Valeu pela ideia, mas acabei fazendo de outro outra forma mais facil um pouco, sobscrevendo o dado que iria ser excluido. A duvida agora � simples, quero colocar um relogio na tela do meu form, para que na hora em que estiver executando o programa ele fique contando HH:MM:SS e que isso seja vis�vel, se poder me ajudar fico grato.Abra�o![/quote:43579d3303]Coloca um Label no teu form e um TTimer tb.Clique duas vezes no TTimer do seu form e digite o c�digo abaixo:[code:1:43579d3303]Labelx.Caption := TimeToStr(Now);[/code:1:43579d3303]Espero q seja isso q vc est� querendo.[/quote:43579d3303][code:1:43579d3303]Labelx.Caption := TimeToStr(Now);[/code:1:43579d3303]...

Muri · Answer

[quote:86edbc3692=�Martins�][quote:86edbc3692=�muri�]Valeu pela ideia, mas acabei fazendo de outro outra forma mais facil um pouco, sobscrevendo o dado que iria ser excluido. A duvida agora � simples, quero colocar um relogio na tela do meu form, para que na hora em que estiver executando o programa ele fique contando HH:MM:SS e que isso seja vis�vel, se poder me ajudar fico grato. Abra�o!

Coloca um Label no teu form e um TTimer tb.

Clique duas vezes no TTimer do seu form e digite o c�digo abaixo:

Labelx.Caption := TimeToStr(Now);

Espero q seja isso q vc est� querendo.[/quote:86edbc3692]

Labelx.Caption := TimeToStr(Now);

[/quote:86edbc3692]

VALEU MARTINS...!!

MUITO F�CIL DE FAZER!!!! ABRA�O..