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