Código
begin
if (TestaInteiro div 2) = (TestaInteiro/2) then
begin
result := True;
end
else
begin
result := False;
end;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009