FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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! |
#2
|
||||
|
||||
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) |
#3
|
|||
|
|||
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 13:05:46. |
#4
|
||||
|
||||
Pues a mí no me marca error.
Claro que he eliminado líneas y comentado otras:
Sobre todo he quitado los uses unit_menu; y lo referenta a bbdd.
__________________
La violencia es el último recurso del incompetente. (Salvor Hardin) |
#5
|
|||
|
|||
agradecimiento
Ok. Muchas gracias, checare el tuyo y lo implementare en el mio haber que sucede.
Hasta Luego! |
#6
|
|||
|
|||
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. |
|
|
|