Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-06-2005
Striker Striker is offline
Registrado
 
Registrado: jun 2005
Ubicación: Boca del Río, Veracruz [México]
Posts: 6
Poder: 0
Striker Va por buen camino
Question Error de compilación (delphi)

Un saludo a todos.

Bueno el problema es el siguiente:

Es una función que yo cree y la declare como publica, pero al momento de correr el programa me bota este error:

[Error] unit_clientes.pas(41): Unsatisfied forward or external declaration: 'Tfrm_clientes.actualizar_registro'

Aquí es donde la declare:

public
procedure actualizar_registro; <--- y en esta linea me marca el error
end;

Soy principiante y no se porque me marca ese error. Espero me puedan ayudar, de antemano gracias!
Responder Con Cita
  #2  
Antiguo 14-06-2005
Avatar de Ohcan
[Ohcan] Ohcan is offline
Miembro Premium
 
Registrado: ago 2004
Ubicación: Madrid (España)
Posts: 119
Poder: 20
Ohcan Va por buen camino
Hola Striker

Antes de nada ¡Bienvenido!

Sobre el error... ¿podrías darnos algún dato más? Algo de código...

Saludos
__________________
La violencia es el último recurso del incompetente. (Salvor Hardin)
Responder Con Cita
  #3  
Antiguo 14-06-2005
Striker Striker is offline
Registrado
 
Registrado: jun 2005
Ubicación: Boca del Río, Veracruz [México]
Posts: 6
Poder: 0
Striker Va por buen camino
Question codigo del actualizar_registro;

Gracias por contestar!

el error me lo marca desde antes de ejecutar el procedimiento

{------------------------------------------------------------------}
unit unit_clientes;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, DB, ADODB;

type
Tfrm_clientes = class(TForm)
grb_datos_clientes: TGroupBox;
edt_clave_cliente: TEdit;
edt_nombre_cliente: TEdit;
edt_apepat_cliente: TEdit;
edt_apemat_cliente: TEdit;
edt_direccion_cliente: TEdit;
edt_telefono_cliente: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
btn_inicio: TButton;
btn_anterior: TButton;
btn_siguiente: TButton;
btn_final: TButton;
Shape1: TShape;
lbl_numero_registro: TLabel;
btn_agregar: TBitBtn;
adotable_cliente: TADOTable;
btn_salir: TButton;
btn_guardar: TButton;
btn_modificar: TButton;
btn_borrar: TButton;
btn_cancelar: TButton;
procedure btn_salirClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
procedure actualizar_registro; <--- aqui es donde me marca el error
end;

var
frm_clientes: Tfrm_clientes;
variable_global, variable_registro_actual: integer; //var_global, var_regactual

implementation

uses unit_menu;

{$R *.dfm}

{-----------------------------------------------------------------------}


despues de todo eso sigue el codigo del procedure actualizar_registro;
{-----------------------------------------------------------------------}

//Procedimiento que actualiza los numeros de registros de la barra de //desplazamiento

procedure Tfrm_clientes.actualizar_registro;
var
total_registros: integer; //var_totcampos
begin
//obtenemos el total de registros que hay en la tabla
total_registros := adotable_cliente.RecordCount;

case variable_global of
1: begin
lbl_numero_registro.Caption := inttostr(variable_registro_actual) + ' DE ' + inttostr(total_registros);
end;
2: begin
variable_registro_actual := variable_registro_actual - 1;
lbl_numero_registro.Caption := inttostr(variable_registro_actual) + ' DE ' + inttostr(total_registros);
end;
3: begin
variable_registro_actual := variable_registro_actual + 1;
lbl_numero_registro.Caption := inttostr(variable_registro_actual) + ' DE ' + inttostr(total_registros);
end;
4: begin
lbl_numero_registro.Caption := inttostr(total_registros) + ' DE ' + inttostr(total_registros);
end
end;
end;

{-----------------------------------------------------------------------}


a lo que lei del error dice algo de una declaracion externa, no le hayo que pueda ser.

De nuevo gracias!

Última edición por Striker fecha: 14-06-2005 a las 14:05:46.
Responder Con Cita
  #4  
Antiguo 14-06-2005
Avatar de Ohcan
[Ohcan] Ohcan is offline
Miembro Premium
 
Registrado: ago 2004
Ubicación: Madrid (España)
Posts: 119
Poder: 20
Ohcan Va por buen camino
Pues a mí no me marca error.

Claro que he eliminado líneas y comentado otras:
Código Delphi [-]
unit unit_clientes;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  Tfrm_clientes = class(TForm)
    lbl_numero_registro: TLabel;
  private
    { Private declarations }
  public
    procedure actualizar_registro; //<--- aqui es donde me marca el error
  end;

var
  frm_clientes: Tfrm_clientes;
  variable_global, variable_registro_actual: integer; //var_global, var_regactual

implementation

//uses unit_menu;

{$R *.dfm}

{-----------------------------------------------------------------------}
//despues de todo eso sigue el codigo del procedure actualizar_registro;
{-----------------------------------------------------------------------}

//Procedimiento que actualiza los numeros de registros de la barra de //desplazamiento

procedure Tfrm_clientes.actualizar_registro;
var
  total_registros: integer; //var_totcampos
begin
  //obtenemos el total de registros que hay en la tabla
  total_registros := 10;//adotable_cliente.RecordCount;

  case variable_global of
    1: begin
         lbl_numero_registro.Caption := IntToStr(variable_registro_actual) +
                                        ' DE ' + IntToStr(total_registros);
       end;
    2: begin
         variable_registro_actual := variable_registro_actual - 1;
         lbl_numero_registro.Caption := IntToStr(variable_registro_actual) +
                                        ' DE ' + IntToStr(total_registros);
       end;
    3: begin
         variable_registro_actual := variable_registro_actual + 1;
         lbl_numero_registro.Caption := IntToStr(variable_registro_actual) +
                                        ' DE ' + IntToStr(total_registros);
       end;
    4: begin
         lbl_numero_registro.Caption := IntToStr(total_registros) +
                                        ' DE ' + IntToStr(total_registros);
       end;
  end;
end;

end.

Sobre todo he quitado los uses unit_menu; y lo referenta a bbdd.
__________________
La violencia es el último recurso del incompetente. (Salvor Hardin)
Responder Con Cita
  #5  
Antiguo 14-06-2005
Striker Striker is offline
Registrado
 
Registrado: jun 2005
Ubicación: Boca del Río, Veracruz [México]
Posts: 6
Poder: 0
Striker Va por buen camino
Thumbs up agradecimiento

Ok. Muchas gracias, checare el tuyo y lo implementare en el mio haber que sucede.

Hasta Luego!
Responder Con Cita
  #6  
Antiguo 14-06-2005
Striker Striker is offline
Registrado
 
Registrado: jun 2005
Ubicación: Boca del Río, Veracruz [México]
Posts: 6
Poder: 0
Striker Va por buen camino
Lightbulb mejora

ya no me marca el error con el codigo que yo tengo.
fue raro porque no le movi nada lo deje como estaba solo le meti más codigo.

Despues que termine de elaborarlo completamente pongo el screen del formulario y el codigo completo.

Hasta luego.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 09:41:49.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi