Ejecutar una función de otra unidad

[aitorqrv]

Muchas gracias a todos por la respuesta y por toda la la informació adicional he analizado los codigos y me han funcionado a la primera.

Gracias.

[aitorqrv]

Hola, otra pregunta relacionada con el mismo tema:

Ahora en unit2 puedo meter funciones que me devuelven parametros, pero en unit2 no me deja hacer cosas como form1.edit1.Text := 'hola';

Al declarar el uses unit2 y las funciones en interface ¿el código fuente no se tendría que comportar como si se trasase de un solo archivo para poder modificar un parametro tanto desde unit1 o unit2?

Muchas gracias.

[[nlsgarcia]]

aitorqrv,

Empezado por aitorqrv

...¿El código fuente no se tendría que comportar como si se trasase de un solo archivo para poder modificar un parámetro tanto desde Unit1 o Unit2?...

Revisa este código:

Código Delphi [-]
unit Unit2;

interface

// Cabecera de Funciones y Procedimientos de Unit2 visibles en otras unidades

implementation

uses Unit1; // Referencia a Unit1

// Implementación de Funciones y Procedimientos de Unit2 (Internas y Externas)

end.

El código anterior referencia Unit1 en Unit2.

Te sugiero revisar los links del Msg #3, relacionados al Uso de Unidades en Delphi.

Espero sea útil

Nelson.

[aitorqrv]

Muchas gracias nuevamente, intentare de buscar algo de información en español. Tenia miedo de usar uses unit1 por el tema de la referencia circular (me parece que se llama asi el error que da cuando dos unit se referencian entre si en el uses) y por eso no lo intente con el uses.

Gracias.

[Pericles]

Efectivamente el error es el siguiente..


[DCC Fatal Error] Unit1.pas(7): F2047 Circular unit reference to 'Unit1'

Se soluciona declarandolas entre si pero en el Uses de Implementation/ Interface

ejemplo:

Código Delphi [-]
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Registry, unit2;

Código Delphi [-]
unit Unit2;
interface

implementation
uses
unit1;

Ssaludos
Nicolas Perichon