ActiveDelphi

[FelipeKz95]

Galera, estou com um exercicio aqui que não sei como fazer
A parte de" Criar Classe", "metodo main" e "criar objeto". Me confundiram muito.

Alguem porfavor pode fazer só este pra mim ?

Pois preciso entender pra depois aplicar nos outros exercicios...

Eu sei usar toda parte de MOD, para indentificar PAR, IMPAR, ZERO. Só me confundi com a parte de criar Classe, metodo main e criar objeto.

3 – Crie uma classe chamada PAR, que possui um número.
a) Quando um objeto Par é criado, deve ser informado o número. Este número deve ser par. Se o número não for par, imprima uma mensagem dizendo ou que ele é zero ou que ele é ímpar.
b) Crie o método main (dentro desta classe ou em outra classe separada, você escolhe). Neste método, crie 3 objetos do tipo par: o primeiro com valor 0, o segundo com valor 5 e o terceiro com valor 8. Verifique a saída e se está funcionando corretamente.


Abraços!

[rodrigoprado]

unit uNumeros;

interface

uses
Classes, Dialogs, SysUtils;

type
TPar = class(TComponent)
private
FiNumero: integer;
public
constructor Create(iNumero : integer);
Destructor Destroy; override;//utilizado para sobrescrever um método virtual...
function getParouImpar: String;
property iNumero: integer read FiNumero write FiNumero;
end;

{
3 – Crie uma classe chamada PAR, que possui um número.
a) Quando um objeto Par é criado, deve ser informado o número. Este número deve ser par. Se o
número não for par, imprima uma mensagem dizendo ou que ele é zero ou que ele é ímpar.
b) Crie o método main (dentro desta classe ou em outra classe separada, você escolhe). Neste
método, crie 3 objetos do tipo par: o primeiro com valor 0, o segundo com valor 5 e o terceiro com valor 8. Verifique a saída e se está funcionando corretamente.
http://www.activedelphi.com.br/forum/viewtopic.php?t=69038
}

resourcestring
MSG_PAR = 'Objeto criado é Par!';
MSG_IMPAR = 'Objeto criado é Ímpar!';
MSG_ZERO = 'Objeto criado é ZERO!';

implementation

{ TPar }
constructor TPar.Create(iNumero: integer);
begin
FiNumero := iNumero;
ShowMessage(getParouImpar);
end;

destructor TPar.Destroy;
begin
inherited;
end;

Function TPar.getParouImpar: string;
begin
if FiNumero = 0 then
Result := MSG_ZERO
else If FiNumero mod 2 = 0 then
Result:= MSG_PAR
else
Result:= MSG_IMPAR;
Result := Result + ' - Valor Criado: ' + IntToStr(FiNumero);
end;

end.


//chmada de outro form..

coloar na uses uNumeros.


procedure TForm1.BitBtn1Click(Sender: TObject);
var
Par : TPar;
begin
try
Par := TPar.Create(StrToInt('0'));
finally
FreeAndNil(Par);
end;

try
Par := TPar.Create(5)
finally
FreeAndNil(Par);
end;

try
Par := TPar.Create(
finally
Par.Free;
end;

end;
_________________
- Compartilhe seus conhecimentos -

[FelipeKz95]

Bah isso mesmo, valeu!



Abraços