kann dieses Konstrukt überhaupt funktionieren? (Arrays...)

[Uwe Raabe]

Zitat von cherry:

Was mache ich falsch?

Nur so 'ne Idee: Initialisierst du die Instanzen der jeweiligen Listen (z.B. TUser.Groups) denn auch? Es handelt sich dabei schließlich um Objekte.

Ich würde das so realisieren (reduziert auf Groups):

Delphi-Quellcode:

type
  TUser = class(TObject)
  private
    FGroups: TGroups;
  public
    constructor Create;
    destructor Destroy;
    property Groups: TGroups read FGroups;
  end;

constructor TUser.Create;
begin
  inherited Create;
  FGroups := TGroups.Create; // so ist TGroups für die Freigabe der enthaltenen Objekte zuständig
end;

destructor TUser.Destroy;
begin
  FGroups.Free;
  inherited;
end;

Analog muss man natürlich auch für die anderen Container verfahren.

Wie in dem Kommentar vermerkt, kümmert sich TObjectList<T> standardmäßig um die Freigabe der enthaltenen Instanzen bei Delete, Clear und Free. Will man das nicht (z.B. weil nur Referenzen gespeichert werden sollen), muss man Create(false) verwenden. Das kann z.B. Sinn machen, wenn die Gruppen global verwaltet werden und die User nur Referenzen auf die Gruppen speichern. Dann muss man aber auch darauf achten, daß diese Referenzen entfernt werden, bevor die entsprechenden Gruppen freigegeben werden.

[cherry]

Zitat von Uwe Raabe:

Nur so 'ne Idee: Initialisierst du die Instanzen der jeweiligen Listen (z.B. TUser.Groups) denn auch? Es handelt sich dabei schließlich um Objekte.

Ich Dummbatz, natürlich hab ich das Vergessen. Sorry... Hab irgendwie TGroup und TGroups verwechselt...
Könnte ich dann also auch ohne weiteres TGroup als Record deklarieren, oder sollte es ne Klasse sein?

Zitat von Uwe Raabe:

Ich würde das so realisieren (reduziert auf Groups): ...

Hmm... Warum TGroup als Property,
wenn keine Getter und Setter noch was spezielles machen?

[DeddyH]

Damit die Instanz einzig und allein von der übergeordneten Klasse verwaltet wird (deshalb ja auch eine ReadOnly-Property).

[cherry]

Ok werd jetzt mal in mein Programm einbauen und sehen obs so klappt...
Nur trotzdem schade, das mein Konstrukt nicht funktioniert... hätte mich schon interessiert woran das wohl liegt...
aber da müsste ich wahrscheinlich ein wenig mehr Speicherkenntnisse für haben.

THX

[cherry]

ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄHHHHHHHHHHHHHHHHHHHHH

Hab nun also mein ganzes Konstrukt über der Haufen geworfen und das ganze mit TObjectList schön umgesetzt. So weit so gut. Danach schön in das Programm implementriert und...
JAWOHL, der Fehler ist immer noch derselbe... nun habe ich aber herausgefunden wo der Fehler liegt und zwar:

Delphi-Quellcode:

  TGroup = record
    name: string[50];
    ldappath: string[255];
  end;

wenn ich auf

Delphi-Quellcode:

  TGroup = record
    name: string;
    ldappath: string;
  end;

Ändere klappts einwandfrei.
Obwohl ich meines Wissens die Grössen nirgens überschreite...

Habs jetzt nicht getestet aber zu 99.9 % müsste mein ursprüngliches Konstrukt also doch funktionieren...

Kann mir jemand sagen warum das Probleme geben kann mit string[n] ?

LG

[DeddyH]

AFAIK sind Shortstrings automatisch AnsiStrings. Ich habe das jetzt nicht in allen Einzelheiten verfolgt, aber möglicherweise liegt hier das Problem begründet.

[Blup]

Wahrscheinlich liegt die Ursache an anderer Stelle.
Vermutlich wird irgendwo unbeabsichtet der Speicher deiner Objekte oder Strings freigegeben.
Wenn danach auf die Variablen zugegriffen wird, ist dort nichts mehr und AV.

[xZise]

Moin,

Zitat von Uwe Raabe:

[....]Wie in dem Kommentar vermerkt, kümmert sich TObjectList<T> standardmäßig um die Freigabe der enthaltenen Instanzen bei Delete, Clear und Free. Will man das nicht (z.B. weil nur Referenzen gespeichert werden sollen), muss man Create(false) verwenden. Das kann z.B. Sinn machen, wenn die Gruppen global verwaltet werden und die User nur Referenzen auf die Gruppen speichern. Dann muss man aber auch darauf achten, daß diese Referenzen entfernt werden, bevor die entsprechenden Gruppen freigegeben werden.

ich möchte noch was hinzufügen:
Guck dir mal TList und OwnObjects an. Das kümmert sich nämlich darum. Du könntest also statt x := TList<TFoo>.Create(false) einfach nachträglich x.OwnObjects := false setzen. Nur damit du den genaueren Hintergrund kennst.

MfG
Fabian