(Resolvido) Funções!

[mayconvm]

Saudações!

Galera um form do me sistema, esta ficando cheio de função repetidas, como que eu faço, para criar um arquivo com todas as minhas funções, para eu poder charmar ela de qualquer form.

Eu já tentei colocar em um form e na opcao "implementation", useio o comando 'uses data;', mais as funções contidas no form data, n dão certo quand chamo elas de outro form.

Obrigado!

[Daniel Sanches]

uma forma simples de se fazer isso:

1. Vá em File -> New -> Unit... (ela vai ficar tipo a unit abaixo)

unit Unit2;

interface

uses QDialogs;

procedure mens(texto: string);//aki você declara a procedure ou function..

implementation

procedure MENS(texto: string);//aki você define as procedures ou functions
begin
        showmessage(texto);
end;

end.

2. na cláusua uses da unit onde você vai utlizar suas funções, você declara a sua unit...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnList, StdCtrls, AppEvnts, [color="#FF0000"]Unit2[/color], Buttons;

qualquer dúvida é só postar....

[mayconvm]

MOÇO AINDA ASSIM N FUNCIONOU, MOSTROU Q A FUNÇÃO E INEXISTENTE.

[Daniel Sanches]

olha !! sempre utilizei desta forma e sempre funcionou .. vamos atentar para as possibilidades de erro ...

você adicionou sua unit na cláusula uses ???

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ActnList, StdCtrls, AppEvnts, Unit2, Buttons;

*tem que ser na cláusula uses logo após interface ...

se você declarou corretamente, poste sua unit de funções e a unit que está utilizando-a para podermos estudar ...

abraço

[mayconvm]

HEHEHE! TAVA USES ERRADO... VLW