Sobre Objetos Irm�os com valores diferentes

Question

Pessoal tenho um componente que est� conectado a outro, um exemplo seria ligar um TTable em uma DataSource... em Run Time a id�ia � que tanto eu acessar Table1.Active qto DataSource1.DataSet.Active me...

Massuda · Answer

Usando seu exemplo com TTable e TDataSource... voc� pode implementar TDataSource.DataSet como sendo um objeto interno do TDataSource...

type
  TDataSource = class(...
  private
    FDataSet: TDataSet;
    procedure SetDataSet(Value: TDataSet);
  public
    constructor Create(...);
    property DataSet: TDataSet read FDataSet write SetDataSet;
  ...

constructor TDataSource.Create(...);
begin 
  ...
  FDataSet := TDataSet.Create(...);
  ...
end;

procedure TDataSource.SetDataSet(Value: TDataSet);
begin
  FDataSet := Assign(Value);
end;

...ou como uma refer�ncia a um objeto externo...

type
  TDataSource = class(...
  private
    FDataSet: TDataSet;
  public
    property DataSet: TDataSet read FDataSet write FDataSet;
  ...

No primeiro caso, quando voc� atribui um valor a TDataSource.DataSet, voc� tem na realidade dois objetos independentes (que no momento da atribui��o tinham valores iguais) enquanto no segundo caso voc� tem um �nico objeto que est� sendo compartilhado.

Pelo que voc� escreveu, imagino que seus componentes sejam parecidos com o primeiro caso.

Massuda · Answer

Um pequeno erro de digita��o... o certo �...[code:1:a3426e2ae4]procedure TDataSource.SetDataSet(Value: TDataSet);begin  FDataSet.Assign(Value);end;[/code:1:a3426e2ae4]...

Bruno Belchior · Answer

Massuda pior que estou no segundo caso na debuga��o vejo o propriet�vo do meu segundo objeto no caso o meu DataModule e seu nome � DataSet1 (exemplo) e o objeto que linkei a ele � exatamente DataModulo.DataSet1, mas usando o inspector vejo que a posi��o de mem�ria dos dois n�o � a mesma...

Massuda · Answer

[quote:a2d0c5e786=�brunovicenteb�]...mas usando o inspector vejo que a posi��o de mem�ria dos dois n�o � a mesma...[/quote:a2d0c5e786]Desculpe, mas eu n�o entendi... voc� esta dizendo que @DataSet1 <> @DataModulo.DataSet1?...

Bruno Belchior · Answer

exatamente......

Massuda · Answer

[quote:d0c1555d8b=�brunovicenteb�][quote:d0c1555d8b=�Massuda�]... voc� esta dizendo que @DataSet1 <> @DataModulo.DataSet1?[/quote:d0c1555d8b]exatamente...[/quote:d0c1555d8b]Assumindo que sua classe seja algo assim...[code:1:d0c1555d8b]type TDataSource = class(... private FDataSet: TDataSet; public property DataSet: TDataSet read FDataSet write FDataSet; ...[/code:1:d0c1555d8b]...nesse caso, @DataSource.DataSet � o endere�o de mem�ria (dentro do objeto DataSource) onde o valor da propriedade DataSet � armazenada.N�o sei se vai ficar claro, mas se voc� atribuir um DataSet externo � propriedade DataSource.DataSet, teremos...[list:d0c1555d8b][*:d0c1555d8b]@DataSet <> @DataSource.DataSet[*:d0c1555d8b]DataSet = DataSource.DataSet[/list:u:d0c1555d8b]...pois � o [b:d0c1555d8b]mesmo valor armazenado em locais diferentes[/b:d0c1555d8b]....

Bruno Belchior · Answer

ficou claro sim Massuda... resolvi meu problema, era em um teste unit�rio do DUnit, no procedimento TearDown eu equivocadamente escrei [b:cebb69a96a]FreeAndNilProperties[/b:cebb69a96a] em vez de [b:cebb69a96a]FreeAndNil[/b:cebb69a96a]...

imagino que no caso eu liberei apenas as propriedades do DataModule... ent�o ele criava uma nova inst�ncia do meu objeto a cada execu��o do teste mas a inst�ncia do DataModule era a mesma... estou certo? e no caso de sim de qualquer forma meu objeto setado no componente n�o deveria ter as mesmas propriedades mesmo assim?

F�rum Sobre Objetos Irm�os com valores diferentes #282494