Fórum Ponteiro para Record #343976
02/08/2007
0
Tenho as seguintes declarações:
Type
TClientes = Record
Cod: Integer;
Nome: string;
end;
{...}
procedure TForm1.Button1Click(Sender: TObject);
var
PClientes: ^TClientes;
begin
New(PClientes);
PClientes.Cod:= 1;
PClientes.Nome:=´Cliente 1´;
New(PClientes);
PClientes.Cod:= 2;
PClientes.Nome:=´Cliente 2´;
end;1º) A minha dúvida é a se estou fazendo a coisa certa! A intensão seria armazenar mais de um registro (´linha´) na record ....
2º) Como faço pra percorrer todos os registros desta record, e acessando o valor de cada ´linha´?
Abraços ...
Output
Curtir tópico
+ 0Posts
02/08/2007
Bruno Belchior
Dúdiva 2: Não existe uma maneira de percorrer os ´campos´ de um registro a não ser da maneira como foi apresentada por você;
Gostei + 0
02/08/2007
Output
Agora sim compreendi ...
entao no meu caso, axo q o correto seria eu criar uma matriz de duas dimensoes do tipo TCliente certo ?
Gostei + 0
02/08/2007
Bruno Belchior
Gostei + 0
02/08/2007
Output
mais se quiser dar mais alguma dica de como e onde, geralmente isto é usado ...
Gostei + 0
02/08/2007
Bruno Belchior
Gostei + 0
02/08/2007
Output
vc está certo, é como dizem: ´cada caso é um caso hehe´ ...
o importante é entender a logica do funcionamento e aplica - la de acordo com as nescessidades ...
vlw aew pelas dicas fera ....
Ah!!!
Aproveitando o topico ...
li em algum lugar q um Record seria quase uma classe... oke realmente diferencia ambas ?
Gostei + 0
02/08/2007
Bruno Belchior
Gostei + 0
02/08/2007
Output
Agora, ainda naum entendo as logicas das classes ...
tipow qual é o real valor delas dentro do delphi ...
Gostei + 0
02/08/2007
Bruno Belchior
Gostei + 0
03/08/2007
Output
kra ... parei aki uns instantes pra pensar e acabei entendendo ...
realmente mto massa esta questao das classes ...
vlw aew kra ...
Gostei + 0
09/08/2007
Host
TClientes = Record
Cod: Integer;
Nome: string;
end;
public
{aqui vce pode especificar a qtd de registros}
Cliente: array[1..2] of TClientes;
{ou dxar free}
Cliente: array of TClientes;
procedure TForm1.Button1Click(Sender: TObject);
begin
Cliente[1].Cod:=1;
Cliente[2].Nome:=´Fulano´;
end;
Depois para percorrer eh so colocar a posicao do array ... este exemplo tambem pode se adaptar a pesquisa dentro de arquivos..... eh este seu problema?
Gostei + 0
10/08/2007
Output
naum, neste caso era somente pra questão didático msm.... só pra ver como funcionava ....
vlw pela dica,,, foi util tbm. Abçs
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)