Generics no Delphi - #11 - Ponteiros Inteligentes

[@anjosjulio]

Caaaaaaaaaaaaaara, ainda tem gente que só quer usar o Delphi 7, com esse vídeo entendemos do porque de evoluir junto com a ferramenta. Valeu Thulio!

[@giorgiobazzo1]

Show de Bola, Ótima sacada... Para que tiver com problemas de access violation quando for tentar trabalhar com objetos TComponents Segue ai o ajuste que fiz para resolver: function TSmartPointer.GetValue: T; begin if not Assigned(FFreeTheValue) then begin if TClass(T).InheritsFrom(TComponent) then Self := TSmartPointer.Create(TComponentClass(T).Create(nil)) else Self := TSmartPointer.Create(T.Create); end; Result := FValue; end;

[@MarcosDias1]

Parabens pela iniciativa, vou usar sua melhoria

[@wtec3030]

As aulas inicias .... achei bem básicas(talvez era o planejado) ... mas este final ficou muito bom. Thulio eu não esperava este final .. Me surpreendeu ... Vamos adiante

[@apierolli0904]

Ótima série, parabéns Thulio pela sua dedicação e alegria em compartilhar seu conhecimentos, espero logo logo comprar um de seus cursos, novamente parabéns

[@rafaelfreitas3545]

Bem legal a série Thulio, parabéns !!! Como sugestão de conteúdo gostaria que falasse sobre pacotes (BPLs), mostrando como pegar uma aplicação já funcionando e modulariza-la.

[@LucasMarciel]

Parabéns...

[@AguiarJairoJorge]

Parabéns! Suas aulas me ajudaram bastante! Abraço!

[@josevarela1870]

Thulio tu es o cara mesmo, parabéns !! te vejo em Fortaleza

[@romildocarvalhooliveira6134]

Fantástico, parabéns pelo ótimo vídeo.

[@irpf-facil]

Parabéns, explica muito bem !!!

[@elanfraga9557]

Estou com um problema para debugar TSmartPointer. Quando tento obter o valor de qualquer property do objeto dá pau até no delphi([dcc32 Fatal Error] Projeto.dpr(1): F2084 Internal Error: AV0BED8AF8-W00000001-1). E para de funcionar delphi, não é possível compilar mais nada. Em debug quando coloco o mouse em cima do ".text" apresenta o erro(parece que é do compilador): "Assertion failure: "!e32->evalArgs.evalFCallPending" in ..\win32src\proc32.cpp at line 1830" Tentei isolar a função em um projeto vazio não apresenta o erro, mas nesse projeto que já funciona até em cliente dá erro.Função é somente isso abaixo: function TFMDFE.RetornaIDUF(UF: String): integer; var loQry: TSmartPointer; begin Result := 0; loQry.Value.Connection:= fdm.DB; loQry.Value.Close; loQry.Value.SQL.Text := 'SELECT mdfecte.estado.id FROM mdfecte.estado WHERE mdfecte.estado.uf = :UF'; loQry.Value.ParamByName('UF').AsString := UF; loQry.Value.Open; if not loQry.Value.IsEmpty then result := loQry.Value.FieldByName('id').AsInteger; end;

[@roubledodemiamgasoni9467]

Fantástico thulio, create de objeto nunca mais, parabéns.

[@vic0703]

Muito útil ! Muito obrigado pela dica.

[@brenooliveira2638]

Muito bom Thulio. Muito obrigado.

[@Julio.Delphi]

Simples mente fantástico Muito boooooom mesmo.....

[@glaidsondesouzapezavento4543]

Está dica foi fantástica

[@elanfraga9557]

Thulio encontrei um problema quando tento utilizar com TClientDataset com "create automático": var loCds: TSmartPointer; begin // se eu criar o ClientDataSet não retorna erro, mas se deixar a classe TSmartPointer criar "automático" dá acess violation // loCds:= TClientDataSet.Create(Self); loCds.Value.data:= Olevariant;

[@elanfraga9557]

funcionou perfeitamente, obrigado!

[@Julio.Delphi]

Fala Thulio, show o video, conversão do inteiro também pode ser assim SL.Count.ToString;

[@rjsfrajola]

Parabéns uma aula excelente! Desculpe a minha ignorância, você criou duas class operator Implicit que são do Tipo TSmartPointer, não deveria ser do tipo TSmartPoint ? Grande abraço.

[@rafaelascunha]

Link dos fontes não está funcionando

[@CelinaLibania]

Excelente Serie!!!! Parabéns!

[@joaopoliceno8844]

Top.

[@RicardoGavira]

Fantástico!!!

[@fernandoquartarollo5297]

Interessante. Será que poderia usar isso "indiscriminadamente" ???

[@maicounir]

Ótima série Thulio, parabéns!!! Estou com uma dúvida, estou fazendo um teste com FDQuery e gera uma exceção segue o código utilizando o exemplo disponibilizado pastebin.com/8XGtj6n1. Será que com o Firedac não funciona os ponteiros inteligentes?

[@giorgiobazzo1]

Marcio. Para trabalhar com TComponent tive que fazer uma alteração: function TSmartPointer.GetValue: T; begin if not Assigned(FFreeTheValue) then begin if TClass(T).InheritsFrom(TComponent) then Self := TSmartPointer.Create(TComponentClass(T).Create(nil)) else Self := TSmartPointer.Create(T.Create); end; Result := FValue; end;

[@maicounir]

Giorgio você é o cara funcionou perfeitamente, muito obrigado estava quase desistindo de usar kkkkk

[@Alexandre_amds]

Muito show, só volte te cobrar o class operator.