*Diretivas:
{$IFDEF MSWINDOWS} Showmessage('Vc está usando windows!') {$ELSEIF LINUX}
Showmessage('Vc está usando Linux!') {$IFEND}
ou entaum, vc pode ir em {Project/Options/"aba
Directories/Conditionals"/Conditional Defines}
e colocar a diretiva do seu projeto...
Por exemplo, se vc coloca lah: MEUPROJETO e tem uma parte do código q soh o
seu projeto deve compilar, faça:
{$IFDEF MEUPROJETO} Showmessage('Estou no meu Projeto!') {$IFEND}
Showmessage('Estou em Qualquer projeto!')
tem IFDEF => passa por ali e
IFNDEF => naum passa.
* @
Pega o endereço de memória da variável;
var
p: Pointer
Edit: TEdit;
begin
Edit := Edit1;
p := @Edit1;
end;
* ^
Para se usar com ponteiros;
var:
Edit: ^TEdit; // Edit é um ponteiro para um TEdit, "^" na frente denomina
tipo
begin
Edit := Edit1^; // pega o endereço de Edit1;
end;
flw
Filipe Geyer
Programador
(47) 8409 7352
[EMAIL PROTECTED]
----- Original Message -----
From: "José Luis Fernandes Rezende" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, August 08, 2005 9:30 AM
Subject: [delphi-br] @, ^, $IFDEF, etc
> Olá Pessoal,
>
> Acompanho a Lista desde 15/10/2001, não lembro de ter visto qualquer
> referência sobre o uso de caracteres especiais (@ ^ $) e chamadas #IFDEF,
> etc...
> Apredi a programar estudando os códigos disponibilizados por outros
> programadores. Tenho diversos sistemas em funcionamento, porém, apesar de
> usar estes caracteres (beseado em funções de terceiros) não sei qual a
real
> funcionalidade destes.
> Gostaria que alguém exponha na lista o porquê de se usar tais caracteres
em
> determinadas situações. Acredito que tenham outros programadores que como
eu
> fazem uso de tais caracteres sem saber exatamente porque são necessários
> para que determinada função funcione adequadamente.
> Outra coisa, registrar um programa como serviço, estou usando a função
> abaixo para isso:
>
> ...
> implementation
> function RegisterServiceProcess(dwProcessID, dwType: integer): Integer;
> stdcall; external 'KERNEL32.DLL';
> ...
>
> ...
> begin
> RegisterServiceProcess(GetCurrentProcessID, 1);
> end
> ...
>
> Porém, ela não funciona na plataforma NT. Tenho que compilar o meu
programa
> duas vezes, uma para plataforma 9x e outra para NT.
>
> Alguém conhece uma maneira de contornar esta situação? (Uma função que
seja
> compatível com ambas plataformas Windows).
>
> Obrigado pela atenção.
>
> José Luis
>
>
>
>
>
>
> _______________________________________________________
> Yahoo! Acesso Grátis - Internet rápida e grátis.
> Instale o discador agora! http://br.acesso.yahoo.com/
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
