Ir ao conteúdo

Como faço para usar uma unidade no delphi?


Visitante: baaky

Posts recomendados

Visitante: baaky
 
Postado

Tipo eu coloco, add new, new unit, ai eu declaro as funções tipo:

(programa que testa se o número é primo ou não)

unit Unit2;

interface
function IntPrime(Value: integer): Boolean;

implementation
function IntPrime(Value: integer): Boolean;
{Testa se um numero é primo ou não}
var
i : integer;
begin
Result := False;
Value := Abs(Value);
if Value mod 2 <> 0 then
begin
i := 1;
repeat
i := i + 2;
Result:= Value mod i = 0
until Result or ( i > Trunc(sqrt(Value)) );
Result:= not Result;
end;
end;

end.

Ai até ai tudo certo, ai eu coloco "use unit" ai eu coloco essa unidade, mas num sei o que acontece que o programa não faz nada, tipo como se num tivesse nenhuma unidade, na unit 2 eu coloquei o código, mas o que eu preciso escrever algo no código da unit 1 pra rodar o programa? Eu não sei o que eu escrevo na unit1 pra rodar um programa! Alguém pode me ajudar o que eu escrevo pra rodar o programa usando a função da unit 2?

Postado

baaky, bem-vindo ;)

OK, você tem a Unit2 correta. Na Unit1 (principal, do Form1), você vai incluir a Unit2 com Uses após implementation:

[B]unit[/B] Unit1;

[B]interface[/B]
(...)
[B]implementation[/B]

[B]Uses[/B] Unit2;
(...)

E a sua função da Unit2 estará disponível na Unit1.

[]'s

LNW

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!