[delphi-br] Estrutura de um record

Wed, 01 Oct 2008 05:57:32 -0700 

Bom dia pessoal, 

como faze para acessar a estrutura de um record?

por exemplo tenho os seguintes records, 

Record1 = record
  Codigo : Integer;
  Name : String;
  Endereco : String;
end;

Record2 = record
  Codigo : Integer;
  Descricao : String;
  Situacao : String;
end;

Record3 = record
  Codigo : Integer;
  Descricao : String;
end;

Record4 = record
  Codigo : Integer;
  Descricao : String;
  Quantidade : Double;
  ValorUnitario : Double;
  ValorTotal : Double;
end;

Estou tentando fazer uma procedure mais ou menos assim

procedure ObterListaDados(Lista : TStrings; Registro : record);
var
  vCont : Integer;
begin
  Lista.Clear;
  for vCont := 0 to Registro.QtdCampos do
    Lista.Add(Registro....campo);  
end;

Alguem tem alguma sugestão?

Atenc;
Elazar


      Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

[As partes desta mensagem que não continham texto foram removidas]

Responder a