[Resolvido] unit de função

[Aguinaldofenix 0]

olá a todos

 

estou criando uma função que manipula propriedades do objeto form,

acontece que q quando chamo esta função em um projeto as propriedades do form que uso na função

não sao reconheciadas.

 

exemplo do codigo:

 

 

for i := 0 to Screen.ComponentCount -1 do

begin

 

if (Screen.Components is TEdit) then

begin

 

insere := insere +(Components.Name) +',';

dados := dados + (Components as TEdit).Text+ ',';

end;

end;

[Hugo Slepicka 0]

Poderia postar a função completa?Onde você chama o FORM?

[Aguinaldofenix 0]

function insere(tabela: string): String;

var

insere , dados : string;

 

for i := 0 to Screen.ComponentCount -1 do

begin

 

 

 

if (Screen.Components is TEdit) then

begin

 

insere := insere +(Components.Name) +',';

dados := dados + (Components as TEdit).Text+ ',';

 

end;

 

 

end;

 

resut:= insere + dados;

 

end;

 

 

coloco esta função em uma unit sem form junto com ourtras funções,

depois declaro esta unit no form que prescisar usa-la.

ocorre que components e uma propriedade de form e não e reconhecida pelo form que a chama.

[Hugo Slepicka 0]

Tenta dessa forma:

 

function insere(Form : TForm;tabela: string): String;var  insere , dados : string;  i : Integer;begin  for i := 0 to Form.ComponentCount -1 do  Begin	if (Form.Components[i] is TEdit) then	begin	  insere := insere +(Form.Components[i].Name) +',';	  dados := dados + (Form.Components[i] as TEdit).Text+ ',';	end;  end;  result:= insere + dados;end;

E quando for chamar a função passe também o Form que deseja... bele?

 

Té mais! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Aguinaldofenix 0]

obrigado,

deu certo de certa forma,

agora não reconhece o

 

dados := dados + (Form.Components as Tedit).text + ',';

 

o tedit, dizendo:

undeclared indetifier Tedit.

 

muito obrigado

[Hugo Slepicka 0]

Verifique se na sua Unit de Funções está declarado no Uses as Units Controls e StdCtrls

[Aguinaldofenix 0]

muito obrigado está reconhecendo o comamando,faltava a StdCtrls no uses.agora vou testar.valeu mesmo.

[Hugo Slepicka 0]

Beleza, testa aew e volta com a resposta de se deu certo ou não!

 

Abrass! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Aguinaldofenix 0]

deu certo!muito obrigado!valew!

[Hugo Slepicka 0]

Belezera fera...!

 

Precisando é só postar aew!!!

 

Abraço! Bom fds! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif