Hola negrokau.
Declararlo como un método como te indica
Casimiro es la mejor opción ya que no importa la posición donde ubiques el código de la función:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages,...;
type
TForm1 = class(TForm)
...
private
function ExisteCodigo(const Value: string): Boolean;
public
end;
var
Form1: TForm1;
implementation {$R *.dfm}
function TForm1.ExisteCodigo(const Value: string): Boolean;
begin
with TQuery.Create(nil) do
try
DatabaseName:= 'C:\SGC v1.0\Database\SGC_v1.GDB';
SQL.Text:= 'SELECT * FROM FACTURAS WHERE COD_BARRA =:DATO';
ParamByName('DATO').AsString:= Value;
Open;
Result:= not IsEmpty;
Close;
finally
Free;
end;
end;
end.
Otra opción es declararlo como función, pero para ello, la cabecera debe estar declarada antes del método o función que la invoque. Para asegurar el tiro,
inmediatamente después a la declaración
Implementation, de ese modo la función, tendrá alcance a todo código subyacente a ella:
Código Delphi
[-]
...
Implementation
function ExisteCodigo(const Value: string): Boolean;
begin
...
Saludos.