Buscar

Exemplo de array dinâmico

Código

//Inclua no formulário:
2 Buttons
1 ListBox
1 Edit
(todos da paleta Standart)

//variáveis globais
Cont: Integer;
Pessoa :Array of String;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //inicializamos a variável que irá percorrer nosso array
  Cont:= 0;
end;

//cada click nesse botão irá adicionar um elemento no nosso array
procedure TForm1.Button1Click(Sender: TObject);
begin
  //incluímos um elemento novo no final do array
  SetLength(Pessoa, Cont + 1);
  //o último elemento do array recebe um texto de um valor
  Pessoa[Cont]:= Edit1.Text;
  Cont:= Cont + 1;
end;

//esse botão irá mostrar todos os elementos do array num ListBox
procedure TForm1.Button2Click(Sender: TObject);
var
  nPercorreArray: Integer;
begin
  //limpamos o ListBox
  ListBox1.Clear;
  //adicionamos todos os elementos do array
  for nPercorreArray:=0 to Cont -1 do
  begin
    ListBox1.Items.Add(Pessoa[nPercorreArray]);
  end;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 09/04/10
Por: -=|PiRuKa|=-
Visualizada: 30850 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009