tcustomattribute como parametro

Delphi

10/07/2015

boa noite...

estou com um problema estranho...
nao consigo entender...

tenho uma funcao que recebe um objeto e verifica se neste objeto existe um determinado tcustomattribute, retornando true ou false
blz...

se o objeto que eu passar para a funcao estiver no mesmo form que eu chamo a funcao, retorna o valor corretamente...
porem se o objeto que eu passar para a funcao estiver em outro form, a funcao retorna sempre false...

exemplo:

unit_funcao

function existe_custom_attribute(objeto:tobject):boolean;
begin
...
...
...
end;

unit_form1

type
tcliente=class
...
...
...
end;

 codigo abaixo funciona...
retorna true ou false corretamente...

procedure TForm1.Button1Click(Sender: TObject);
var
cli:tcliente;
begin
cli:=tcliente.create;
if existe_custom_attribute(cli) then
showmessage('existe')
else
showmessage('nao existe);
end;

porem o codigo abaixo nao funciona...
retorna sempre false...

a unica diferenca entre eles � que no codigo abaixo o tcliente esta em outro form...

procedure TForm1.Button1Click(Sender: TObject);
var
cli:form2.tcliente;
begin
cli:=form2.tcliente.create;
if existe_custom_attribute(cli) then
showmessage('existe')
else
showmessage('nao existe);
end;

ja passaram por algo desse tipo ?!?!

valeu !

Felipe Barros

Curtidas 0

POSTAR