[delphi] Adres van het object waar je in zit

[MicroWhale]

Ik zie het niet... het zal wel verbazingwekkend simpel zijn.... maar toch

Stel ik doe:

code:

var Concepts : TConceptList;

procedure TConceptList.AddConcept(aName: String);
var aLinkList : TLinkList;
begin
  if (aName<>'') and (IndexOf(aName)=-1) then
  begin
    aLinkList:=TLinkList.Create;
    aLinkList.Parent:=@Concepts
  end
end;

Dit is natuurlijk niet netjes omdat de "Concepts"-variabele er keihard instaat.. hoe los ik dit goed op? dus bij de @ een normale verwijzing, zodat het goed naar het object verwezen wordt....

[Aetje]

"self" ipv "Concepts"

[MicroWhale]

Aetje schreef op 02 February 2003 @ 16:59:
"self" ipv "Concepts"

Dat dacht ik ook, maar dat geeft dus een andere pointer terug dan @Concepts, ook Self en @Self komen niet overeen.

[MicroWhale]

ah, 't is al opgelost...

TConceptList zat in TLinkList en vice versa... nu eerst:

code:

  TConceptList = class;
  TLinkList = class(TStringList)
  public
    Parent : TConceptList;
    ....
  end;
  TConceptList = class (TstringList)
    ....
  end;

en dan:

code:

  aLinkList.Parent:=(Self as TConceptList);

werkt wel

[LordLarry]

Logos schreef op 02 February 2003 @ 17:03:
Dat dacht ik ook, maar dat geeft dus een andere pointer terug dan @Concepts, ook Self en @Self komen niet overeen.

Objecten zoals Self en Concepts zijn al pointers. @ van een object doen geeft het adres van de pointer zelf, niet waar het heenwijst (het object).

Delphi:

Self = Concepts;  // Waar
@Self = @Concepts;  // Onwaar

aLinkList.Parent := Self;  // Goed
aLinkList.Parent := @Self;  // Fout

[ Voor 9% gewijzigd door LordLarry op 02-02-2003 21:30 ]