сипользование дериктив

[MAcK]

Не знаю как правильно сформулировать название темы, но нужно следующее:

С помощью дериктив указать видимость кнопки, то-есть если дебаг-версия, то видно если релиз то невидно:

{IFDEF ... debug}
  button.visible = true
{ELSE}
  button.visible = false
{IFEND}

Не по теме:
писал по-памяти, нет ничего схожего с правильным кодом

Что-то не могу понять как правильно делать.

[Stilet]

Все просто:

 
...
{$DEFINE debug}
procedure TForm1.FormCreate(Sender: TObject);
begin
{$IFDEF debug}
  button1.visible := true ;
{$ELSE}
  button1.visible := false;
{$ENDIF}
end;
...

Скомпилируется button1.visible := true ;
А если строчки {$DEFINE debug} не будет то скомпилится button1.visible := false;

[Alex Cones]

если дебаг-версия, то видно если релиз то невидно

В процедуре onFormCreate укажи проверку на наличие какого-нибудь файла в папке с программой (например log.txt). если файл есть - показывай кнопу, если нет, спрячь. Юзеру файл лога не бросай и у него будет релиз.



Опоздал((

[Stilet]

если файл есть - показывай кнопу, если нет, спрячь. Юзеру файл лога не бросай и у него будет релиз.

Плохая идея.
Можно для отладочных прог использовать функцию IsDebuggerPresent, которая даст Труе если программа запущена из-под отладчика. Но с файлами в этом случае лучче не связываться.

[MAcK]

а есть более автоматизированный способ нежели ответ1 и более грамотный нежели ответ2 ?

Где-то видел код, что проверяется таким способом, если запуск из под делфи, то выполнять если нет то не выполнять, без коментирования строк

[Alex Cones]

Всмысле поподробнее?