Classe Helper

Imagine a situação onde você possui uma equipe de desenvolvedores, usando controlador de versão, muitas vezes dois desenvolvedores precisam alterar uma classe ao mesmo tempo. Com a classe helper seus problemas acabaram.

Classe principal

TMinhaClasse = class
procedure Metodo1;
end;

Classe secundária

TSegundaClasse = class helper for TMinhaClasse
procedure Metodo2;
end;

Implementado

procedure TForm1.BitBtn1Click(Sender: TObject);

var

lmClasse : TMinhaClasse;
begin

try

lmClasse := TMinhaClasse.Create();

lmClasse.Metodo2;

finally

FreeAndNil(lmClasse);

end;

end;

{ TPessoa }
procedure TMinhaClasse.Metodo1;

begin

showMessage('Método 1!');

end;

{ TSegundaClasse }
procedure TSegundaClasse.Metodo2;

begin

ShowMessage('Metodo2!');

end;

Resultado

Para saber mais Acesse!