<html><head/><body><html><head></head><body>Bruno, amplío lo que te dijo Maxi porque es así como funciona.<br>
<br>
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; <br>
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.<br>
<br>
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.<br>
<br>
Nos vemos<br>
Carlos<br><br><div class="gmail_quote">Bruno Luciani <bruno.luciani@gmail.com> escribió:<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
<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>
<p style="margin-top: 2.5em; margin-bottom: 1em; border-bottom: 1px solid #000"></p><pre style="white-space: pre-wrap; word-wrap:break-word; font-family: sans-serif; margin-top: 0px"><hr /><br />Lazarus-es mailing list<br />Lazarus-es@lists.lazarus.freepascal.org<br /><a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br /></pre></blockquote></div></body></html></body></html>