llamar a procedure desde otra procedure

[Kenobi]

aja ya les estoy agarrando el punto sensible a los mienbros del foro....
lo digo porque sabia que eso de si es una barbaridad y el codigo mismo claro llamarian la atencion ....

pero si lo dice ROMAN compadre es una barbaridad sin duda...ya que (y esto lo digo en serio) no me atreveria a mi nivel discutir con una autoridad de este foro, del cual soy humilde admirador....
pero la verdad funciona hombre si funciona lo que si es que no es "ELEGANTE" pero me resuelve el problema, ya sabes ...

sin embargo ya me picaste la curiosidad y voy a revisar mi codigo para montar lo que esta en el onkeypress en una procedure aparte para llamar .....

por cierto roman u otro de los usuarios avanzado por favor respondan la pregunta de la dll crystal con el inno setup o install shields
tengo dias prenguntando lo mismo de distintas formas y nadie me contesta....

Please helpppppppppppp........

[Kenobi]

a pesar de estar de acuerdo y de ningun modo discutir....

no esta de mas conocer esos trucos del lenguaje (que no se deben hacer ya se) pero que en momentos de apuro te sacan del atolladero y ademas te permiten conocer mas el lenguaje....


humilde opinion, si vienen mas bombas pues bienvenidas sean.....disparen gurus o usuarios avanzados que pa' aprender es que estoy aca, y como decian mis abuelos a golpes tambien se aprende....


y de acuerdo con Caral Maestro eres Roman al menos como dices a nivel teorico me quito mil veces el sombrero.....

[anubis]

ya puestos a preguntar un poco mas de lo mismo o no lo mismo, pero que adecente la estructura.
Como se puede hacer una unit sin form para limpiar de procedures el la unit principal, lo he intentado, metiendo las procedures pero me da error, es decir,
si la unit no lleva form no se puede crear un form, pero intente meter las procedures debajo del type.

o esto no es legal?

gracias again

[[Lepe]]

anubis, file -> New -> Unit, ahí tendrás una unidad sin form asociado

Código Delphi [-]

unit global

uses < lo que necesites>

type 
  type Numero = (uno, dos, tres);
  < tipos que quieres exportar o usar desde otras unidades


  procedure Simplifica(...);
  < procedimientos y funciones visibles desde otras unidades

implementation

< implementación de todo >
end.

procedure Simplifica(...);
begin 
  <  lo que sea >
end;

Saludos

[CarlosHernandez]

buenas tardes, se que esta es una pregunat vieja pero solo quiero saber en la estructura que puso lepe, en

Código Delphi [-]
 type Numero = (uno, dos, tres);

que es numero y que es (uno,dos,tres)

ya que no se que poner ahi y me da error

por ejemplo en un unit asociado a un form se coloca

Código Delphi [-]
type
  TForm1 = class(TForm)

esto es lo que puse

Código Delphi [-]
unit Unit2;

interface

uses
  Windows;

  type
    Tunit2 =  class(TForm)// estos es un disparate, no se que poner aqui y   es  el motivo de la pregunta
    procedure mensaje;
  end;

implementation


 procedure mensaje;
begin
showmessage('e');
end;

end.

[rgstuamigo]

Amigo CarlosHernandez >
Si vas a hacer una unidad con procedimientos y/o funciones que no van a pertenecer a ninguna clase pues puedes hacerlo así:

Código Delphi [-]
unit Unit2;

interface

uses Dialogs;

procedure Hola();

implementation

procedure Hola();
begin
 ShowMessage('Hola');
end;

end.

Ahora si por el contrario vas a crear nuevas clases entoces lo haces así:

Código Delphi [-]
unit Unit3;

interface
uses Dialogs;

type
  MiClase = Class {<--Aquí si deseas lo puedes haces asi >  MiClase = Class(TObject)
                   pero es lo mismo ya que para toda clase  que no se especifique su ancestro
                   el compilador asume que su padre es la clase TObject,
                   a no ser que quieras heredar de una clase en cuestión }
  private
    { Aqui se pone todas las declaraciones privadas }
  public
    { Aqui se pone todas las declaraciones públicas }
    procedure Hola();//este método es publico
  end;
implementation

{ MiClase }

procedure MiClase.Hola;
begin
ShowMessage('Hola');
end;

end.

Espero que todo haya quedado claro..
Saludos...

[[Lepe]]

CarlosHernandez, tienes toda la razón, ese ejemplo con "Numero" es lo típico que se hace para aclarar cosas y al final resulta de lo más complejo y raro...

Eso de "Numero" es un tipo enumerado en Delphi, vamos, esto mismo:

Código Delphi [-]
type TEstadoCivil = (ecSoltero, ecCasado, ecDivorciado, ecViudo);

Simplemente un tipo de datos que puede contener un sólo estado de todos los posibles. el prefijo "ec" es por aquello de EstadoCivil

Es un tipo de datos definido en ese .pas, pero que se usará en otras partes del programa.