Eliminar Digitos de una Cadena

Función Contar Vocales

Invertir una Cadena

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.

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

           ClaseNatural=Class

           Constructor crear;

           End;

           Implementation

           End.

Luego ver que funciones o procedimientos van ser de tipo publico o privado.

   Ej.  Unit Natural;

          Interface

          Type

            ClaseNatural=Class

               Private

                Public

                   Constructor crear;

          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 .

  
 Ej.   Unit Natural;

            Interface

          // aquí van las librerías que uno debe usar  

        Uses  SysUtils;

        Type
        ClaseNatural=Class

            Private

            Public

                Constructor crear;

        End;

        Implementation

        End.

IMPLEMENTAREMOS FUNCIONES Y PROCEDIMIENTOS A NUESTRA           ClaseNatural

Curso Delphi

Curso Delphi

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.