Sobre fun��o NewInstance...

Question

pessoal como se utiliza a fun��o [b:89b0f1aa33]NewInstance[/b:89b0f1aa33]......

Massuda · Answer

TObject.NewInstance est� relacionado com aloca��o e inicializa��o da mem�ria utilizada por um objeto, sendo utilizada internamente no processo de cria��o de um objeto. Que tipo de uso voc� tem em mente?

Marioguedes · Answer

Ol�, eu uso NewInstance em conjunto com uma refer�ncia de classe. Como a refer�ncia de classe n�o � a classe em si, n�o me � disponibilizado os par�metros do constructor da mesma.

Confuso?

      _acao := TMCTAcao(ACOES[a].NewInstance);

     //onde:
     //_acao -> Vari�vel
     //TMCTAcao -> Efetuando um TypeCast para a classe m�e
     //ACOES[a] -> array de classes (Gra�as a uma refer�ncia de classe, tipo TClass)
     //NewInstance -> conforme explica��o do Massuda

Se voc� precisa de algo parecido podemos trocar mais id�ias a respeito.

[]�s

Beppe · Answer

marioguedes, prefira usar o construtor da classe.

NewInstance <> [b:c40dac4d29]constructor[/b:c40dac4d29]

Ao chamar NewInstance diretamente, c�digo que consta nos construtores n�o s�o executados. Se por acaso o construtor tomar argumentos e necessite deles, pode deixar a classe em estado desconhecido.

Bruno Belchior · Answer

na verdade eu precizo fazer uma c�pia do meu objeto para um novo, mas realmente uma c�pia e n�o uma refer�ncia a esse mesmo......

Beppe · Answer

Uma c�pia dita �shallow� pode ser feita assim:

Copia := Original.ClassType.Create;
Move(Pointer(Original)^, Pointer(Copia)^, Copia.InstanceSize);

Os objetos internos de Original n�o ser�o duplicados tb, a� seria bem complicado. O trecho que postei acima eu nunca usei, por falta de necessidade. Use com cautela.

Massuda · Answer

[quote:e9e797b9f0=�brunovicenteb�]na verdade eu precizo fazer uma c�pia do meu objeto para um novo, mas realmente uma c�pia e n�o uma refer�ncia a esse mesmo...[/quote:e9e797b9f0]Talvez [url=//forum.clubedelphi.net/viewtopic.php?t=57120]este t�pico[/url] seja �til para voc�.Lembro que recentemente voc� postou sobre copiar um TClientDataSet em um TCustomClientDataSet... como n�o testei, n�o respondi seu post, mas acho que existe um problema ao copiar uma classe filha para sua classe m�e, pois h� risco de perder informa��o no processo; mas, como disse, n�o testei isso, portanto n�o tenho certeza....

Marioguedes · Answer

Beep, obrigado pelo conselho, mas meu projeto possui caracteristicas tais que tenho que lan�ar m�o deste artif�cio. Os riscos mencionados s�o calculados pois as classes envolvidas s�o criados por mim.

brunovicenteb, talvez o link abaixo seja exatamente o que procuras:

http://www.blong.com/Conferences/BorConUK98/DelphiRTTI/CB140.htm

Entre v�rios exemplos, mostra como copiar um objeto para outro.

Bruno Belchior · Answer

massuda e se fosse no caso um TClientDataSet para um TClientDataSet ou seja classes iguais... seria poss�vel? pois o que me interessa mesmo � o ResultSet do ClientDataSet......

Massuda · Answer

[quote:dac24cf1e7=�brunovicenteb�]se fosse no caso um TClientDataSet para um TClientDataSet ou seja classes iguais... seria poss�vel?[/quote:dac24cf1e7]Como eu escrevi, n�o testei. Sinto dizer isso, mas t� com jeito que � mais f�cil voc� testar do que eu :wink:...

Beppe · Answer

[quote:c148a1d057=�brunovicenteb�]massuda e se fosse no caso um TClientDataSet para um TClientDataSet ou seja classes iguais... seria poss�vel? pois o que me interessa mesmo � o ResultSet do ClientDataSet...[/quote:c148a1d057]Aquele c�digo que eu passei ter� problemas ao liberar os objetos da mem�ria, a n�o ser que vc limpe as refer�ncias internas de um deles.No caso do dataset cliente, � melhor vc especificar o que vc quer. � que o CDS tem um m�todo que pode lhe ser �til, CloneCursor. Ap�s chamr ele, ele compartilhar� os dados de um CDS com o outro....

Bruno Belchior · Answer

[quote:37ceeab588=�Beppe�][quote:37ceeab588=�brunovicenteb�]massuda e se fosse no caso um TClientDataSet para um TClientDataSet ou seja classes iguais... seria poss�vel? pois o que me interessa mesmo � o ResultSet do ClientDataSet...[/quote:37ceeab588]Aquele c�digo que eu passei ter� problemas ao liberar os objetos da mem�ria, a n�o ser que vc limpe as refer�ncias internas de um deles.No caso do dataset cliente, � melhor vc especificar o que vc quer. � que o CDS tem um m�todo que pode lhe ser �til, CloneCursor. Ap�s chamr ele, ele compartilhar� os dados de um CDS com o outro.[/quote:37ceeab588]tenho que receber alguns dados que est�o no CDS e depois manipul�-los em outro lugar sem poder alterar o estado do CDS anterior entende, vou montar uma instru��o Update com esse �novo� CDS mas sem poder alterar o valor do state do CDS original......

Bon Jovi · Answer

Nao sei o q quer exatamente na pratica pro usuario. Mas pra copiar um ClientDataSet:

procedure CopiaClientDataSet(Origem, Destino: TClientDataSet);
var
  Stream: TMemoryStream;
begin
  if (not Assigned(Destino)) or (not Assigned(Origem)) then
    Exit;

  Stream := TMemoryStream.Create;
  Origem.SaveToStream(Stream);
  Stream.Position := 0;
  Destino.LoadFromStream(Stream);

  FreeAndNil(Stream);
end;

Bon Jovi · Answer

[code:1:484914a6b8]procedure CopiaDataSet(Origem, Destino: TClientDataSet);var  Stream: TMemoryStream;begin  if (not Assigned(Destino)) or (not Assigned(Origem)) then    Exit;  Stream := TMemoryStream.Create;  try    Origem.SaveToStream(Stream);    Stream.Position := 0;    Destino.LoadFromStream(Stream);  finally    FreeAndNil(Stream);  end;end;[/code:1:484914a6b8]...

F�rum Sobre fun��o NewInstance... #277445