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