Buscar

Como evitar as mensagens de warning do compilador ?

Código

{$WARNINGS OFF}
function TfrmEdit.ProjectTypeToUse(const cPath: string): Integer; var
  SR: TSearchRec;
  begin
  if not DirectoryExists(cPath) then begin
  ErrMsg('Path não localizado!');
  Exit;
  end;
  try
  if FindFirst(cPath + '*.VBP',faDirectory,SR) = 0 then
  Result := VBP_FILTER
  else
  Result := DPR_FILTER;
  except
  ErrMsg('Falha de sistema -' + cPath);
  Result := 1
  end;
end;
{$WARNINGS ON}

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 06/06/03
Por: Felipe Monteiro
Visualizada: 2160 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009