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