<div dir="ltr"><div>Maxi , gracias por contestar , creo que probe asi y tampoco funciona pero vuelvo a probar<br><br></div><div>Si lo hago sin esa funcion intermedia o sea pongo el codigo directamente en la funcion <br><br>
</div><div>click del boton  , todo funciono perfecto y logre mostrar los registros de la DB <br></div><div><br></div>Gracias<br></div><div class="gmail_extra"><br><br><div class="gmail_quote">El 23 de junio de 2013 10:16, Maxi <span dir="ltr"><<a href="mailto:maximiliano.duarte@gmail.com" target="_blank">maximiliano.duarte@gmail.com</a>></span> escribió:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><p><br>
El 23/06/2013 00:35, "Bruno Luciani" <<a href="mailto:bruno.luciani@gmail.com" target="_blank">bruno.luciani@gmail.com</a>> escribió:</p><div><div class="h5"><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></div></div>
> _______________________________________________<br>
> Lazarus-es mailing list<br>
> <a href="mailto:Lazarus-es@lists.lazarus.freepascal.org" target="_blank">Lazarus-es@lists.lazarus.freepascal.org</a><br>
> <a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">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></p>
<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" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
<br></blockquote></div><br></div>