Array e Listbox no delphi

Delphi

23/09/2012

Com vetor (array) de tamanho 10;
Eu insiro um nome no Edit1 e quando eu clicar em inserir, ele guarda esse nome dentro do vetor. Faz isso com 10 nomes.
Ao chegar no 10º nome, o botão inserir desabilita, no edit1 aparece a msg: "MÁXIMO ATINGIDO" e habilita o botão Exibir, que ao ser clicado exibe todos os nomes que estavam guardados no vetor na Listbox1.

Grato.
Lucas Lole

Lucas Lole

Curtidas 0

Melhor post

Claudia Nogueira

Claudia Nogueira

24/09/2012

Parece ser um exercício da faculdade.
Fiz da seguinte forma:

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.
GOSTEI 2

Mais Respostas

Alisson Santos

Alisson Santos

23/09/2012

não entendi sua duvida, poderia explicar melhor?
GOSTEI 0
Bruno Leandro

Bruno Leandro

23/09/2012

Ola Lucca ficou um pouco vago a sua necessidade, mas me corrija se eu entendi errado

voce quer preencher um edit e ir clicando em incluir
este incluir ira adicionar os valores digitados em um listbox
ao chegar em 10 registros voce quer que ao clicar em exibir exiba os valores digitados, exibir como em um memo, no proprio listbox, em uma mensagem showmessage?
GOSTEI 0
Lucas Lole

Lucas Lole

23/09/2012

Exato BRUNO LEANDRO
GOSTEI 0
Alisson Santos

Alisson Santos

23/09/2012

o exemplo que a claudia passou lhe ajudou???
Conseguiu sanar a duvida???
GOSTEI 0
Lucas Lole

Lucas Lole

23/09/2012

sim, mais eu consegui descobrir sozinho..
GOSTEI 0
POSTAR