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

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Nesta Quick iremos falar sobre Recursos que muitos não conhece no Record.


Olá galera, nesta Quick Tips irei falar sobre Record no Delphi, porém veremos agora algo que já existe a algum tempo porém quase ninguém usa, ou até mesmo conhece, podemos ter Procedures, Functions e até mesmo Constructor, isso mesmo Constructor, podemos ter um em nosso Record.

 

O que é um Record ?

Record são estruturas criadas por nós programadores, similares, a Classes, porém não manipulam atributos, mas possuem métodos como Constructor, Procedures ou até mesmos Functions.

 

Por que usar Record ?

Quando começamos a programar e vamos fazer cálculos com os conteúdos de Edits, ai colocamos aquelas funções StrToFloat + StrToInt, fica uma coisa meio estranha, usando um Record, temos uma estrutura que represente estes Edits, porém já com seus tipos pré-definidos.

 

Onde usaria um Record?

Como disse acima podemos evitar estas conversões de StrToFloat, e por ai vai,veja um exemplo.

 

RCalculo = Record

     Nota1, Nota2, Media : Real;     

End;

 

Ao invés de Fazemos :

 

EdtMedia.Text := FloatToStr((StrToFloat(EdtNota1.Text) + StrToFloat(EdtNota2.Text))/2);

 

Podemos fazer o seguinte :

 

Declarar uma variável do tipo do Record, exemplo :

Calculo : RCalculo;

 

E usarmos da seguinte forma

 

With Calculo do

begin

  Nota1 := StrToFloat(EdtNota1.Text);

  Nota2 := StrToFloat(EdtNota2.Text);

  Media := (Nota1+Nota2) /2;

  EdtMedia.Text := FloatToStr(Media);

End;

 

Fico por aqui, e veja a Parte II na próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br



 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?