Nasciweb Fóruns

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
TForm1 = class(TForm)
EditNome: TEdit;
EditIdade: TEdit;
ButtonAdicionar: TButton;
MemoLista: TMemo;
Label1: TLabel;
Label2: TLabel;
procedure ButtonAdicionarClick(Sender: TObject);
private
public
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonAdicionarClick(Sender: TObject);
var
Nome: string;
Idade: Integer;
begin
Nome := EditNome.Text;
Idade := StrToInt(EditIdade.Text);

if Nome = '' then
ShowMessage('Digite um nome válido')
else
begin
MemoLista.Lines.Add('Nome: ' + Nome + ' | Idade: ' + IntToStr(Idade));
EditNome.Clear;
EditIdade.Clear;
EditNome.SetFocus;
end;
end;

end.


Como montar o formulário

No Form1 adicione:

1 TLabel → texto: Nome:

1 TEdit → para digitar o nome (EditNome)

1 TLabel → texto: Idade:

1 TEdit → para digitar a idade (EditIdade)

1 TButton → texto: Adicionar

1 TMemo → para mostrar a lista de pessoas (MemoLista)


Como funciona

O usuário digita o nome e a idade de uma pessoa.

Clica no botão Adicionar.

O programa adiciona a pessoa à lista mostrada no Memo.

Limpa os campos para a próxima entrada.

Esse mini sistema pode ser expandido futuramente para:

Pesquisar pessoas por nome

Ordenar a lista por idade ou nome

Salvar e carregar os dados de um arquivo