Programación
jueves, 1 de octubre de 2015
martes, 29 de septiembre de 2015
sábado, 26 de septiembre de 2015
sábado, 13 de junio de 2015
Crear una Clase en Delphi Números Naturales
Para crear una clase, Primero debemos dar un nombre a
nuestra unidad,
Después debemos asignar un nombre a nuestra clase donde Nuestras funciones
y procedimientos.
y procedimientos.
Ej. Unit Natural;
Interface
Type
ClaseNatural=Class
End;
Implementation
End.
Y esta clase va ser de tipo ClaseNatural.
Luego debemos construir nuestra clase
Ej. Unit Natural;
Interface
Type
Constructor
crear;
End;
Implementation
End.
Luego ver que funciones o procedimientos van ser de tipo
publico o privado.
Interface
Type
ClaseNatural=Class
Private
Public
End;
Implementation
End.
Nuestro constructor debe ser de tipo public.
Luego si es necesario usar librerías para realizar algún
procedimiento o función
colocamos .
colocamos .
Ej. Unit Natural;
Interface
// aquí van
las librerías que uno debe usar
Uses SysUtils;
Type
ClaseNatural=Class
ClaseNatural=Class
Private
Public
End;
Implementation
End.
IMPLEMENTAREMOS FUNCIONES Y PROCEDIMIENTOS A NUESTRA ClaseNatural
IMPLEMENTAREMOS FUNCIONES Y PROCEDIMIENTOS A NUESTRA ClaseNatural
sábado, 24 de enero de 2015
jueves, 22 de enero de 2015
lunes, 19 de enero de 2015
Crear una Clase en Delphi :
unit Uclase_natural;
interface
uses sysutils,math;
type
CEMnumeronatural=class(Exception);
cnatural=class
valor :integer;
public
constructor crear;
procedure asignarvalor(numero:integer);
function obtenervalor:integer;
function numero_digitos:integer;
end;
implementation
{ cnatural }
constructor cnatural.crear;
begin
valor:=0;
end;
procedure cnatural.asignarvalor(numero: integer);
begin
valor:=numero;
end;
function cnatural.obtenervalor: integer;
begin
//obtenervalor:=valor;
result:=valor;
end;
function cnatural.numero_digitos:integer;
var cont,r,n:integer
begin
// result:=trunc(ln(valor)/ln(10)+1);
{ o tambien resulta este pero antes tienes que llamar a la libreria math para usar este codigo }
// result:=trunc(log10(valor)+1);
// de la forma mecanica
n:=valor;
cont:=1;
while ( n>0 ) do
begin
r:= n mod 10;
c:=c+1; // Inc(c);
n:= n div 10;
end;
result:=cont;
end;
end.
Suscribirse a:
Entradas (Atom)