Quick Tips : Record com Métodos e Construtor Parte II

Olá galera, nesta Quick Tips, parte II, iremos construir agora, nosso exemplo de Record, já vimos onde usar, e a função de um Record, agora vamos colocar em pratica. Obviamente outras pessoas tem outras coisas a dizer ou falar sobre Record, eu resumi o que tenho em mente na Quick anterior. Vamos ao que interessa.

Crie uma nova Aplicação em Delphi

Monte a seguinte tela

3 TLabeledEdit(EdtCodigo, EdtNome, EdtCPF)

4 TButton(BtnNovo, BtnLer, BtnGravar, BtnMudarCPF)

1 TStatusBar(SttsBrCliente)

1 TRadioGroup(RGSexo – 2 Itens)

Iremos criar agora uma Unit que terá a estrutura do nosso Record.

unit uCliente;

interface

  Type

  RCliente = Record

IDCliente : Integer;

Nome: String;

Sexo: String;

CPF: String;

Usuario   : string;

constructor Create(xUsuario: String); //Constructor no Record

procedure MudarCPF(xCPF:String); //Procedure no Record

function UsuarioLogado: String; //Function no Record

  End;

implementation

{ RCliente }

constructor RCliente.Create(xUsuario: String);

begin

  Usuario := xUsuario;

end;

procedure RCliente.MudarCPF(xCPF: String);

begin

  CPF := xCPF;

end;

function RCliente.UsuarioLogado: String;

begin

  Result := Usuario;

end;

end.

No Create do Form

procedure TFrmPrincipal.FormCreate(Sender: TObject);

begin

  BtnNovo.Enabled   := True;

  BtnGravar.Enabled := False;

  BtnLer.Enabled:= False;

  KeyPreview:= True;

end;

BtnLer - onClick

procedure TFrmPrincipal.BtnLerClick(Sender: TObject);

begin

  With Cliente do

  begin

EdtCodigo.Text    := IntToStr(IDCliente);

EdtNome.Text := Nome;

EdtCPF.Text := CPF;

RGSexo.ItemIndex  := RGSexo.Items.IndexOf(Sexo);

BtnNovo.Enabled   := True;

BtnGravar.Enabled := True;

BtnLer.Enabled:= False;

  end;

end;

BtnNovo - onClick

procedure TFrmPrincipal.BtnNovoClick(Sender: TObject);

Var

  Usuario : String;

begin

  if InputQuery('Informe o Usuario', 'Digite o nome de Usuario',Usuario) then

  begin

Cliente.Create(Usuario); //Usando o Create

SttsBrCliente.Panels[0].Text := 'Usuario Logado : '  + Cliente.Usuario;

  BtnNovo.Enabled   := False;

BtnGravar.Enabled := True;

BtnLer.Enabled:= False;

  end;

end;

BtnMudarCPF - onClick

procedure TFrmPrincipal.BtnMudarCPFClick(Sender: TObject);

begin

  Cliente.MudarCPF(EdtCPF.Text); // Usando a Procedure

end;

FrmPrincipal - onKeyDown

procedure TFrmPrincipal.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  if Key = VK_F2 then

ShowMessage(Cliente.Usuario);

end;

Fico por aqui ate a próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br