[Lazarus-es] Problemas al inciarme

[Carlos Enrique Rodriguez]

Bruno, amplío lo que te dijo Maxi porque es así como funciona.

Cuando se declara una clase TFClientes = class (Tform), todos los métodos, sean privados, protegidos o públicos, deben ser implementados (en la parte implementation del código), haciendo referencia a la clase a la que pertenecen. De esta forma, tu metodo que en la interfaz se declara procedure refreshclients; en la parte implementation será procedure TFClientes.refreshclients; 
Esto es así porque en la interfaz podés tener dos clases con los mismos nombres de métodos y de no especificar a qué clase corresponde cada uno, el compilador terminaría diciendo que tenés código duplicado.

Si pese a este cambio sigue el problema, por queé no pegas el mensaje de error así vemos si no viene por otro lado el asunto.

Nos vemos
Carlos

Bruno Luciani <bruno.luciani en gmail.com> escribió:

>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
>>
>>
>
>
>------------------------------------------------------------------------
>
>_______________________________________________
>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/e64fe039/attachment-0002.html>