Código
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;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009