Buscar por:

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;