Criar Variaveis

Delphi

23/12/2004

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


Felipeiw

Felipeiw

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

23/12/2004

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.


GOSTEI 0
POSTAR