GARANTIR DESCONTO

Fórum classes PHP-gt;Delphi #342307

24/05/2007

0

Bom dia,

Eu era o usuário lynx, mas cancelei minha conta no brturbo e perdi a senha...


Seguinte vou colar um exemplo de código php...

class valid 
{ 
    
function informe_campo($param,$msg) 
   { 
      if(empty($param)) 
      { 
          $this->msg_erro = $msg; 
         $this->erro = 1; 
        } 
   }


para chamar a classe
$valid = new valid(); 
$valid->informe_campo($param,Informe o campo´); 
   if (!empty($valid->erro)) 
   { 
      print($valid->msg_erro); 
   } 
else 
{ 

etc................. 
}



Como ficaria isso em obj. pascal ?
Para não ficar repetindo código, e chamar somente a classe.

Muito obrigado.


Unix

Unix

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar