Ayuda con llamado a funcion
 

Buenos dias foro, tengo el siguiente problema.

En una Unit 1 tengo una funcion llamada ZodiacName pero al momento de llamarla desde otra unit me arroja el error de Undeclared identifier: 'ZodiacName'

Alguna pista ?

Gracias de antemano

En la otra unidad debes agregar la primera en la cláusula uses:

Código Delphi [-]
uses Unit1;

LineComment Saludos

Gracias

Asi lo hice pero aun asi me arroja ese mensaje de error y no lo compila

ZodicaName ¿es una función o un método (de un formulario, por ejemplo)?

LineComment Saludos

Es una funcion

Código Delphi [-]
function ZodiacName(juldate: double):string;
var
  degree, sign, minute, second: integer;
  zs, ms, ss: String;
begin
  juldate := juldate + 1/120;
  sign := trunc(juldate/30);
  degree := trunc(juldate) - sign*30;
  minute := trunc(frac(juldate) * 60.0);
  second := trunc(frac(juldate * 60) * 60.0);
  zs := Format('%0.2d',[degree]);
  ms := Format('%0.2d',[minute]);
  ss := Format('%0.2d',[second]);
  Result := zs + '°' + ' ' + ms + '''' + ' ' + ss + '"' + ZodiacNames[sign] ;
end;

¿Donde está declarada? ¿En la sección interface o en la sección implementation?

LineComment Saludos

En Implementation

Ahí esté el problema. Coloca esta línea en interface:

Código Delphi [-]
function ZodiacName(juldate: double):string;

Otras unidades sólo pueden ver lo que está en interface.

LineComment Saludos

Ahora me arroja lo siguiente

Declaration expected but 'USES' found

Estas cosas se solucionan en un periquete si publican todo el codigo fuente relevante, con el mensaje de error del compilador y en que linea. Si no hay que ir adivinando como lo esta haciendo (y encima acertando) roman

Lo que esta en la seccion de implementation es privado a la unidad en cuestion; la unica que puede acceder a dicha funcion es la propia unidad. De hecho, dependiendo de como la tengas declarada puede tener distintos alcances

Código Delphi [-]
unit Unit1;

interface

implementation

function Zod: string; // declaracion de la cabecera, sin implementar: de esta manera es visible en toda la unit

function Foo: string;
begin
  Result := 'Foo';
end;

procedure Algo;
var
  s: string;
begin
  s := Foo; // funciona, porque foo esta implementada mas arriba que este procedimiento
  s := Bar; // no funciona!, porque esta declarada debajo; este procedimiento "no ve" la funcion Bar
  s := Zod; // este caso si funciona porque la cabecera esta declarada
end;

function Bar: string;
begin
  Result := 'Bar';
end;

function Zod: string;
begin
  Result := 'Zod';
end;

Supongo que estás poniendo la línea antes del uses.

Código Delphi [-]
unit unit1;

interface

uses
  Tal, tal y tal;

function ZodiacName(juldate: double):string;

interface

uses
 Tal, tal y tal;

function ZodiacName(juldate: double):string;
var
  degree, sign, minute, second: integer;
  zs, ms, ss: String;
begin
  juldate := juldate + 1/120;
  sign := trunc(juldate/30);
  degree := trunc(juldate) - sign*30;
  minute := trunc(frac(juldate) * 60.0);
  second := trunc(frac(juldate * 60) * 60.0);
  zs := Format('%0.2d',[degree]);
  ms := Format('%0.2d',[minute]);
  ss := Format('%0.2d',[second]);
  Result := zs + '°' + ' ' + ms + '''' + ' ' + ss + '"' + ZodiacNames[sign] ;
end;

end.

LineComment Saludos