Criar Variaveis

Question

Galera, preciso criar variaveis dinamicamente, explico.
Terei que gerar um formulario com varios produtos, contendo codigo,descricao,preco e cada produto tera que ter uma variavel codigo,descricao,preco diferente.
Como eu poderia cria-las

Marcelo Saviski · Answer

A defuni��o dos tipos de dados do registro

type
  TProduto = record
    C�digo: Integer;
    Descricao: string;
    Preco: Currency;
    //Outros campos
  end;

as vari�veis

var
  Produtos: array of TProduto;

agora para cria-las

SetLength(Produtos, NumProdutos);
for I := Low(Produtos) to High(Produtos) do
begin
  Produtos[I].Cocidog := codigo
  //e assim vai
end;

depois vc acessa assim
[color=green:21c8040f5c]ShowMessage(Produtos[10].Descricao);[/color:21c8040f5c]
por exemplo.

F�rum Criar Variaveis #263302