Fórum Classe Generica de Calculos. #8665
15/08/2009
0
Aldemir Silva
Curtir tópico
+ 0Posts
17/08/2009
Rodrigo Mourão
Bem modelagem de uma sistema, construção de uma classe, isso tudo é uma coisa muito pessoal. O que quero dizer é que a melhor solução para mim não pode ser a melhor para você. Então o que eu vou expor aqui é o que eu faria caso eu estivesse modelando o sistema e que acho que é o que você quer kkkkkkkk
Vamos lá, eu criaria uma classe como a abaixo:
type
TCalculos = class
class function CalculaINSS(Valor: Double): Double;
class function CalculaICMS(Valor, Aliquota: Double): Double;
class function CalculaISS(Valor, Aliquota: Double): Double;
end;
A ideia é criar uma classe e colocar nela os metodos para realizar os calculos. Nao sei quais os calculos que vc vai fazer mas a funcao tem que pedir todos os parametros necessários. Por exemplo para calcular o valor do icms de um produto eu preciso passar o valor do produto e a aliquota. A funcao vai me retornar o valor do icms.
Repare que as funcoes sao class function, assim vc nao precisa criar o objeto para consumir. Pode fazer assim:
TCalculos.CalculaInss(100.00);
Pode chamar direto da classe.
Espero ter ajudado.
Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
Gostei + 0
17/08/2009
Aldemir Silva
Gostei + 0
17/08/2009
Rodrigo Mourão
Observe diferenção:
Metodo tradicional - Voce tem que criar o objeto para consumir o metodo;
var
C: TCalculo;
begin
C := Tcalculo.create;
C.CalculaPreco;
freeandnil(C);
end;
Metodo de Classe - Voce invoca o metodo direto da classe
begin
Tcalculo.CalculaPreco;
end;
Viu a diferençã. Podemos invocar metodos de classe direto da classe sem instanciar o objeto.
Att,
Gostei + 0
17/08/2009
Aldemir Silva
Gostei + 0
18/08/2009
Rodrigo Mourão
Qualquer dúvida estaremos aqui. Por hora estaremos colocando o chamado como encerrado, porém caso haja alguma dúvida poderá reabrí-lo que voltaremos a auxiliá-lo.
Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)