Melhorando o entendimento do seu código (Exit)

 

Fala pessoal,

Esses dias estava dando uma consultoria e encontrei um código cheio de exits no delphi algo que se utilizado sem critério torna a manutenção do código bem mais complicada e demorada.

vamos ver um exemplo disso:

function TForm1.PerguntaNome: string;
var
  nome, sobrenome : string;
begin
  Result := 'Preguiçoso';
  repeat
    if not InputQuery('Programa de teste', 'Nome :', nome) then
       Exit;
    if not InputQuery('Programa de teste', 'Sobrenome :', sobrenome) then
       Exit;
  until (nome <> '') or (sobrenome <> '');

  Result := nome + ' ' + sobrenome;
end;

Agora vejamos uma forma de se escrever sem a utilização de exit, como fica muito mais simples e claro de se entender.

function TForm1.PerguntaNome: string;
var
  nome, sobrenome : string;
begin
 repeat
   if (not InputQuery('Programa de teste', 'Nome :', nome)) or
      (not InputQuery('Programa de teste', 'Sobrenome :', sobrenome)) then
     Result := 'Preguiçoso' else
     Result := nome + ' ' + sobrenome;
until Trim(Result) <> '';
end;

Note que o funcionamento de ambas as rotinas são idênticas porém escritas de forma diferente, da segunda forma notamos automaticamente que se a InputQuery de qualquer um dos valores (nome ou sobrenome) for cancelada o retorno de nossa função será ‘Preguiçoso’, do contrario, se em uma delas foi pressionado o botão ‘ok‘ então o retorno da nossa função será o nome + ‘ ‘ + sobrenome. Por ultimo no nosso repeat verificamos se o result contem algo diferente de ‘’ (vazio) caso seja positivo sai do laço e não pergunta mais para o usuário as informações.

O código deste exemplo esta disponível clicando aqui para download.

Reparem que este exemplo é pequeno mas imaginem uma rotina gigante que estamos acostumados ver no dia a dia o quanto o exit pode dificultar a visualização do que esta acontecendo e do que realmente deve acontecer.

Grande abraço,
Diego Garcia.

Dica para migrar para o delphi 2010

 

Fala pessoal,

Seguinte se você esta migrando uma aplicação por exemplo do delphi 2007 para o delphi 2010 então é muito importante que você verifique após migrar seu projeto, se em seu Project Options -> Delphi Compiler -> Unit aliases contém as seguintes definições:

 "WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE"

Caso não tenha, em alguns lugares do código do seu programa pode ser que o code completition do delphi não funcione !

Um Grande Abraço a todos e um ótimo feriado ;)

Diego Garcia.

Preparem-se vem ai Delphi Conference

 

Para maiores informações clique aqui.

 

Grande abraço,

Diego Garcia

ISSkin com a nova versão do Inno Setup

 

Fala pessoal,

Se você acabou de atualizar seu inno setup para a versão com suporte a Unicode e seu script de instalação utiliza o ISSkin, você notara que a skin não será carregada. Isso ocorre devido ao fato do inno setup agora utilizar strings no padrão WideString como o delphi 2009 e 2010, para resolver o problema basta declarar os métodos da dll IsSkin.dll da seguinte forma:

// Importing LoadSkin API from ISSkin.DLL
procedure LoadSkin(lpszPath: AnsiString; lpszIniFileName: AnsiString);
external 'LoadSkin@files:isskin.dll stdcall';

// Importing UnloadSkin API from ISSkin.DLL
procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';

Execute seu script novamente e pronto seu instalador esta funcionando com a skin como anteriormente !

Grande abraço,

Diego Garcia

Update 1 do RadStudio 2010 Disponível

 

Já esta disponível o Update 1 do RadStudio 2010 ;)

 

Grande abraço,
Diego Garcia