Ponteiro/Record

Question

� o seguinte:tenho um tabela, e gostaria de gravar o conteudo desta tabela numa variavel tipo ponteiro.exemplo:a tabela, possui 3 campos    Programa : String;    Status   : Integer;    Hint     : Stri...

Aroldo Zanela · Answer

Colega,N�o entendi a sua d�vida?[code:1:c01b4e1365]type   TAcesso = Record  Programa : String;  Status : Integer;  Hint : String;end;var Acesso: Array&#91;0..4&93; of TAcesso;beginAcesso&91;0&93;.Programa:= �Programa�;  Acesso&91;0&93;.Status:= 0;  Acesso&91;0&93;.Hint:= �Dica�  ...  ...   ...end;[/code:1:c01b4e1365]...

Pedih · Answer

[quote:b5163dc6a6=�Aroldo Zanela�]Colega,

N�o entendi a sua d�vida?

type 
  TAcesso = Record
  Programa : String;
  Status : Integer;
  Hint : String;
end;
var Acesso: Array[0..4] of TAcesso;
begin

Acesso[0].Programa:= �Programa�;
  Acesso[0].Status:= 0;
  Acesso[0].Hint:= �Dica�
  ...
  ... 
  ...
end;

[/quote:b5163dc6a6]

Aroldo, boa tarde.

� o seguinte, nao tenho nocao ainda da qde de registros, citei 5 como exemplo, mas podem ser 10, como 100, como 1000.

acha q assim pode funcionar (com array)???

Aroldo Zanela · Answer

Colega,O correto seria uma tabela num banco de dados. Tem problema quanto a isso?...

Michael · Answer

Vc deve usar uma [b:4ee2e85e13]array din�mica[/b:4ee2e85e13]:

var
  Acessos: array of TAcesso;
begin
  SetLength(Acessos, 100);
  Acessos[0].Programa := ...;
end;

Para iterar por uma array deste tipo vc pode usar as fun��es [b:4ee2e85e13]Low[/b:4ee2e85e13] e [b:4ee2e85e13]High [/b:4ee2e85e13]:

var
  I: Integer;
begin
  for I := Low(Acessos) to High(Acessos) do
    Acessos[I].Programa := ...;
end;

[b:4ee2e85e13]Length[/b:4ee2e85e13] ou [b:4ee2e85e13]High(X) + 1[/b:4ee2e85e13] retornam o total de elementos da array.

De qualquer forma, dependendo do que vc esteja querendo fazer, talvez seja mais indicado, como o colega [b:4ee2e85e13]Aroldo Zanela[/b:4ee2e85e13] postou, usar uma tabela em um banco de dados. Dependendo da situa��o vc pode at� usar um [b:4ee2e85e13]ClientDataSet [/b:4ee2e85e13]e trabalhar apenas em mem�ria com as informa��es.

[]�s

Motta · Answer

Pelo que entendi ele que uma camada entre o BD e os objetos , uma camada de persist�ncia, creio.Este assunto j� foi bem discutido aqui....

Apontador · Answer

aroldo, creio q seja isso que esteja procurando:

type
Pt_TAcesso=^TAcesso;
TAcesso=record
programa, hint:string;
status:integer;
ant,prox:PT_TAcesso;
end;

var
Acesso:Pt_TAcesso;

procedure alocar_ponteiro(var pt_aloc:pt_tacesso);
var
pt_tmp:pt_tacesso;
begin
pt_tmp:=pt_aloc;
new(pt_aloc);
pt_aloc^.ant:=pt_tmp;
it pt_tmp<>nil then
begin
pt_tmp^.prox:=pt_aloc;
end
else
begin
end;
end;

Begin
while inserir_novo_registro=true then
begin
aloc_pt(acesso);
end;
End.

a cada la�o executado, vc ter� um novo espa�o na mem�ria alocado p/ o registro pt_tacesso, que guarda em si mesmo o endere�o do seu pr�ximo e anterior, por�m, nesse c�gigo, vc ter� q colocar algum comando dentro do la�o while de sa�da, sen�o ele vai repetir infinitamente... o resto � contigo

Apontador · Answer

aroldo, me desculpe, na mensagem acima, qdo me referi ao seu nome, me enganei, a resposta acima � p/ pedih. e desculpem por nao colocar c�digo dentado, agora que vi q vcs s� usam esse pad�o, mas vou me acostumar...

Leonardobhbr · Answer

Crie um Classe e um listbox para poder filtrar etc.....

Aroldo Zanela · Answer

[quote:30bd76dcdb=�apontador�]aroldo, me desculpe, na mensagem acima, qdo me referi ao seu nome, me enganei, a resposta acima � p/ pedih. e desculpem por nao colocar c�digo dentado, agora que vi q vcs s� usam esse pad�o, mas vou me acostumar...[/quote:30bd76dcdb]Colega,Sem problemas. Quanto a identa��o, basta utilizar as TAGs [ code ] c�digo[ /code ] (sem espa�o entre as chaves) para exibir o c�digo formatado....

Apontador · Answer

obrigado pela dica amigo, j� vou testa-la:[code:1:0d782d456c]program teste_tags_code; Begin  showmessage(�teste de tags!!�); End.[/code:1:0d782d456c]...

Rjun · Answer

Isso n�o poderia ser montando com uma estrutura de TList? No C# utilizo cole��es para fazer isso....

F�rum Ponteiro/Record #311191