<div dir="ltr"><div><div><div><div><div><div><div><div><div>Hola Gente , me estoy inciando con Lazarus <br><br></div>Y siguiendo un Tutorial que encontre en Internet <br> <br></div>Fui armando un ejemplo de conexion a una Base Postgresql <br>
<br></div>EL problema me surge con un error <br><br></div>Resulta que en un Form tengo Grid y un boton que refresca ese grid <br><br></div>y en el tutorial dice de Crear una funcion refresh , reutilizable <br><br></div>entonces declaro una procedure en Private <br>
<br></div>y luego en el evento click del boton , llamo a esa funcion <br><br><br></div>Me genera este error:<br><br>editclientes.pas(22,15) Error: Forward declaration not solved "TFCLientes.refreshclients;"<br><br>
<br></div>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></div>