2011-07-22 12 views

Odpowiedz

16

użytkowania $IF z Defined() zamiast $IFDEF:

{$IF Defined(INCOMING) or Defined(OUTGOING)} 
... 
{$IFEND} 
+0

Należy jednak pamiętać, że to zwycięstwo sprawiło, że słyszałem wersje Delphi. Jest bardzo łatwe do zrobienia: –

+0

@rudy czy część twojego komentarza się zgubiła? –

+0

Heck tak. Mój palec zsunął się z mojej magicznej myszy, kiedy chciałem ją anulować, strona się zmieniła i nie mogłem znaleźć odpowiedzi. Myślałem, że udało mi się to anulować.

12

Alternatywa dla starszych wersjach:

{$IFDEF INCOMING} 
    {$DEFINE INCOMING_OR_OUTGOING} 
{$ENDIF} 
{$IFDEF OUTGOING} 
    {$DEFINE INCOMING_OR_OUTGOING} 
{$ENDIF} 

{$IFDEF INCOMING_OR_OUTGOING} 
... 
{$ENDIF} 
+1

Jaka jest definicja "starszej"? –

+1

@Andreas '$ IF' został dodany w Delphi 6 –

+6

@Andreas: te, które nie mają definicji [CONDITIONALEXPRESSIONS] (http://docwiki.embarcadero.com/RADStudio/en/Conditional_compilation_%28Delphi%29). To jest [pre-Delphi 6] (http://books.google.com/books?id=V9t0lA-BPUAC&pg=PA52&lpg=PA52&dq=%22delphi+6%22+CONDITIONALEXPRESSIONS&source=bl&ots=4-UBsNal5r&sig=e-8cfyKVxOe5Z_wDZ1jtqKCyycw&hl=en&ei = s0ThTf3YLI-cOsLenNUG & sa = X & oi = book_result & ct = result & resnum = 1 & ved = 0CBcQ6AEwAA # v = onepage & q =% 22delphi% 206% 22% 20CONDITIONALEXPRESSIONS & f = false). –

0

Oto wariacja odpowiedzi Dawida używając „nie”.

Używam tego, gdy chcę wyłączyć ekran powitalny w moich aplikacjach w trybie debugowania. Zapobiega to przypadkowemu pozostawieniu błędu wyłączonego, jeśli zapomnę zdefiniować NOSPLASH w kompilacji wydania.

{$IF not (Defined(NOSPLASH) AND Defined(DEBUG))} 
    //code to create splash 
    {$IFEND} 
Powiązane problemy