| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
stclara
Novato
Registrado: Terça-Feira, 21 de Outubro de 2008
Mensagens: 28
|
 Enviada: Sex Ago 04, 2017 8:52 am Assunto: Complete Class |
 |
|
Bom dia, pessoal. Alguém também está com problemas no Berlin com o Complete Class?
Criei uma unit de testes:
unit Unit2;
interface
type
TUsuario = class
FNome: string;
end;
implementation
end.
No entanto, ao usar o Complete Class (shift + ctrl + c) ou mesmo com o botão direito do mouse nada acontece. Não completa a classe... |
|
| Voltar ao Topo |
|
 |
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
| Enviada: Sex Ago 04, 2017 9:50 am Assunto: |
|
|
Creio que o Complete Class funciona para criação automática de Procedures.
Por exemplo, no seu código crie um procedimento e dê um Ctrl+Alt+C:
| Código: | type
TUsuario = class
FNome: string;
procedure DoSomething; // Acrescentei esta linha
end; |
O Complete Class vai funcionar criando o código abaixo de implementation:
| Código: | { TUsuario }
procedure TUsuario.DoSomething;
begin
end; |
Veja a documentação oficial no link abaixo:
http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Using_Class_Completion
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
|
wjuniordias
Profissional
Registrado: Sexta-Feira, 16 de Março de 2012
Mensagens: 667
|
| Enviada: Ter Ago 08, 2017 8:50 am Assunto: Re: Complete Class |
|
|
Como disse nosso amigo natanbh1, este comando vai criar a declaração de um método na seção "Implementation", ou no caso de uma property, ele gera o metodo "set" e ja implementa. 
_________________
"O sábio nunca diz tudo o que pensa, mas pensa sempre tudo o que diz." (Aristóteles) |
|
| Voltar ao Topo |
|
|
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
| Enviada: Ter Ago 08, 2017 9:36 am Assunto: |
|
|
Além disso, se quiser usar o Complete Class para completar as propriedades de classe adicione a palavra chave property antes de FNome.
Exemplo:
| Código: | type
TUsuario = class
property FNome: string; // Acrescentei property
end; |
Depois do Ctrl+Alt+C vai ficar:
| Código: | type
TUsuario = class
private
FFNome: string;
procedure SetFNome(const Value: string);
published
property FNome: string read FFNome write SetFNome;
end; |
| Código: | { TUsuario }
procedure TUsuario.SetFNome(const Value: string);
begin
FFNome := Value;
end; |
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
