Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit uCadastroDeNomes;
- interface
- uses
- Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
- Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls;
- type
- TForm1 = class(TForm)
- Panel1: TPanel;
- Panel2: TPanel;
- edtNome: TEdit;
- edtSobrenome: TEdit;
- edtCPF: TEdit;
- edtNasc: TDateTimePicker;
- btnCadastrar: TButton;
- cmbNomes: TComboBox;
- Label1: TLabel;
- Label2: TLabel;
- Label3: TLabel;
- Nomes: TLabel;
- procedure btnCadastrarClick(Sender: TObject);
- procedure cmbNomesChange(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.dfm}
- uses UnitCadastro;
- procedure TForm1.btnCadastrarClick(Sender: TObject);
- var
- objdados: Tcadastro;
- begin
- objdados := Tcadastro.Create;
- objdados.nome := edtNome.Text;
- objdados.sobrenome := edtSobrenome.Text;
- objdados.cpf := StrToFloat(edtCPF.Text);
- objdados.datanasc := edtNasc.Date;
- cmbNomes.Items.AddObject(objdados.nome);
- end;
- procedure TForm1.cmbNomesChange(Sender: TObject);
- var
- objdados: Tcadastro;
- begin
- objdados:= Tcadastro(cmbNomes.Items.Objects[cmbNomes.ItemIndex]);
- edtNome.Text := objdados.nome;
- edtSobrenome.Text := objdados.sobrenome;
- edtCPF.Text := FloatToStr(objdados.cpf);
- edtNasc.Date := objdados.datanasc;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement