[Lazarus-es] Problemas al inciarme

Bruno Luciani bruno.luciani en gmail.com
Dom Jun 23 16:28:02 CEST 2013


Maxi , gracias por contestar , creo que probe asi y tampoco funciona pero
vuelvo a probar

Si lo hago sin esa funcion intermedia o sea pongo el codigo directamente en
la funcion

click del boton  , todo funciono perfecto y logre mostrar los registros de
la DB

Gracias


El 23 de junio de 2013 10:16, Maxi <maximiliano.duarte en gmail.com> escribió:

>
> El 23/06/2013 00:35, "Bruno Luciani" <bruno.luciani en gmail.com> escribió:
>
> >
> > Hola Gente , me estoy inciando con Lazarus
> >
> > Y siguiendo un Tutorial que encontre en Internet
> >
> > Fui armando un ejemplo de conexion a una Base Postgresql
> >
> > EL problema me surge con un error
> >
> > Resulta que en un Form tengo Grid y un boton que refresca ese grid
> >
> > y en el tutorial dice de Crear una funcion refresh , reutilizable
> >
> > entonces declaro una procedure en Private
> >
> > y luego en el evento click del boton , llamo a esa funcion
> >
> >
> > Me genera este error:
> >
> > editclientes.pas(22,15) Error: Forward declaration not solved
> "TFCLientes.refreshclients;"
> >
> >
> > Pego un poco de codigo.
> >
> > --------------------------------------------
> >
> > unit EditClientes;
> >
> > {$mode objfpc}{$H+}
> >
> > interface
> >
> > uses
> >   Classes, SysUtils, pqconnection, sqldb, FileUtil, Forms, Controls,
> Graphics,
> >   Dialogs, Grids, StdCtrls;
> >
> > type
> >
> >   { TFCLientes }
> >
> >   TFCLientes = class(TForm)
> >     BClientsRefresh: TButton;
> >     PQConnection: TPQConnection;
> >     SQLQuery: TSQLQuery;
> >     SQLTransaction: TSQLTransaction;
> >     StringGridClient: TStringGrid;
> >     procedure BClientsRefreshClick(Sender: TObject);
> >   private
> >     { private declarations }
> >     procedure refreshclients();
> >   public
> >     { public declarations }
> >   end;
> >
> > var
> >   FCLientes: TFCLientes;
> >
> > implementation
> >
> > {$R *.lfm}
> >
> > { TFCLientes }
> >
> > procedure TFCLientes.BClientsRefreshClick(Sender: TObject);
> > begin
> >   refreshclients();
> > end;
> >
> > procedure refreshclients();
> > begin
> >
> > end;
> >
> > end.
> >
> >
> > _______________________________________________
> > Lazarus-es mailing list
> > Lazarus-es en lists.lazarus.freepascal.org
> > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
> >
> Declaraste como privado a refreshclients y te falta poner la clase.
> TFCLientes.refreshclients
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20130623/cf38acad/attachment-0002.html>


More information about the Lazarus-es mailing list