Fórum Array e Listbox no delphi #424448

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TFrmVetor = class(TForm)
    Label1: TLabel;
    EdtNome: TEdit;
    BtnInserir: TBitBtn;
    BtnExibir: TBitBtn;
    procedure BtnInserirClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BtnExibirClick(Sender: TObject);
  private
    iSequencia : Integer;
    arNome : Array[1..10] of String;
  public
    { Public declarations }
  end;

var
  FrmVetor: TFrmVetor;

implementation

{$R *.dfm}

procedure TFrmVetor.BtnInserirClick(Sender: TObject);
begin
  if EdtNome.Text = '' then
  begin
    ShowMessage('Digite o nome!');
    EdtNome.SetFocus;
  end;
  arNome[iSequencia] := EdtNome.Text;
  if iSequencia = 10 then
  begin
    EdtNome.Text := 'MÁXIMO ATINGIDO';
    BtnExibir.Enabled := True;
    BtnInserir.Enabled := False;
    Exit;
  end;
  EdtNome.Clear;
  Inc(iSequencia);
  EdtNome.SetFocus;
end;

procedure TFrmVetor.FormShow(Sender: TObject);
begin
  iSequencia := 1;
end;

procedure TFrmVetor.BtnExibirClick(Sender: TObject);
Var
  slArquivo : TStringList;
  i : Integer;
begin
  try
    slArquivo := TStringList.Create;
    for i := 1 to Length(arNome) do
      slArquivo.Add(arNome[i]);
    ShowMessage(slArquivo.Text);
  finally
    slArquivo.Free;
  end;
end;

end.