biblioteca UNIT de Funções
pessoal estou montando um form padrao pra minha aplicação e nele tem um DRGRID que ao clicar no title de uma coluna o nome vai pra um campo edit...para filtrar os dados da pesquisa...
bem só que como é uma PROCEDURE que vou utilizar em vários forms...criei um UNIT que serve como biblioteca de funções excenciais...
então fica assim:
FORM
-----------------------------------------------------------
unit uCadPadrao01;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, DBGrids,uCollection,uDM;
type
{ TCadPrin01 }
TCadPrin01 = class(TForm)
DBG: TDBGrid;
procedure DBGTitleClick(Column: TColumn);
private
{ private declarations }
public
{ public declarations }
end;
var
CadPrin01: TCadPrin01;
nomeForm:string;
implementation
{$R *.lfm}
{ TCadPrin01 }
procedure TCadPrin01.DBGTitleClick(Column: TColumn);
var nome, legenda:string;
begin
FiltroPesq("nada_a_declarar");
end;
biblioteca
-----------------------------------------------------------
unit uCollection;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, DBGrids;
function FiltroPesq(FormName:string):string;
implementation
function FiltroPesq(FormName:string):string;
var nome,legenda:string;
begin
nome:=Column.FieldName;
legenda:=Column.Title.Caption;
MessageShow(nome+legenda);
end;
end.
só que dá o seginte erro na UINT Colletion:
**
ucollection.pas(17,16) Error: Identifier not found "Column"**
**
**
alguém tem uma luz?
Discussão (3)
Carregando comentários...