Ayuda con llamado a funcion

[compuin]

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

[roman]

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

Código Delphi [-]
uses Unit1;

LineComment Saludos

[compuin]

Gracias

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

[roman]

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

LineComment Saludos

[compuin]

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;

[roman]

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

LineComment Saludos

[compuin]

En Implementation

[roman]

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

[compuin]

Ahora me arroja lo siguiente

Declaration expected but 'USES' found

[[AgustinOrtu]]

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;

[roman]

Empezado por compuin

Ahora me arroja lo siguiente

Declaration expected but 'USES' found

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