Olá galera, vamos a esta Quick Tip, que tem a função de mostrar como podemos executar determinados comandos, funções, métodos, em fim, como fazer com que um determinado trecho do seu código seja executado de acordo com a versão do Delphi.

Veja como é simples
Temos como base o início e o fim do trecho da diretiva de compilação, funciona como um begin e end, digamos assim, veja o exemplo:
    {$IFDEF VER150}
    ShowMessage('Código compilado somente com o Delphi 7');
    {$ENDIF}

Como vocês podem ver podemos colocar 1 única linha ou várias linhas dentro do bloco da diretiva de compilação.

Vou mostrar outro exemplo usando agora várias versões do Delphi. Vamos ter resultados de várias formas dependendo da sua versão do Delphi.

procedure TForm1.TesteVersao;
begin
  try
    
    {$IFDEF VER150}
    ShowMessage('Código compilado somente com o Delphi 7');
    {$ENDIF}

    {$IFDEF VER200}
    ShowMessage('Código compilado somente com o Delphi 2009');
    {$ENDIF}

    {$IFDEF VER210}
    ShowMessage('Código compilado somente com o Delphi 2010');
    Button1.Enabled := False;
    Caption := 'Versão Delphi 2010' ;
    {$ENDIF}

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end;

Concluindo, podemos agora colocar diferentes códigos em diferentes versões do nosso Delphi.

Fico por aqui e até a próxima Quick Tip.

Um abraço
Wesley Y
www.lithic.com.br