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!