Methode wird nicht aufgerufen

[JasonDX]

Zitat:

Zitat von DeddyH

Sofern es sich aber um Klasseninstanzen handelt, dürfte es aber doch wieder ein Call By Reference sein, oder irre ich mich?

Die Variablen enthalten Referenzen, d.h. Adressen auf ihre Objekte. Bspw. Items[j-1] zeigt auf Objekt A, und Items[j] auf Objekt B. Wenn jetzt SwapIt aufgerufen wird

Delphi-Quellcode:

SwapIt(Self.Items[j - 1], Self.Items[j]);
procedure TContactCollection.SwapIt(Contact1, Contact2: TContact);

dann zeigt Contact1 auf A, und Contact2 zeigt auf B. Nach dem Vertauschen zeigt Contact1 auf B, und Contact2 zeigt auf A. Der Inhalt, sprich die Adressen von Items[j-1] und Items[j] werden davon allerdings nicht beeinflusst, und somit zeigt nach dem Aufruf Items[j-1] immernoch auf A, und Items[j] auf B.

Zitat:

Zitat von mirage228

meiner Ansicht nach ist Items eine Property von TCollection und kann nicht als VAR übergeben werden ("Variable erforderlich") - ein Tausch würde erst recht nicht statt finden... - Also bleibt wie gesagt mein Vorschlag die Indizes zu übergeben und damit dann zu arbeiten (weiß gerade nicht, welche Zugriffmöglichkeiten TCollection auf die dahinterliegende Liste erlaubt...)

Stimmt, Properties sind nur verspachtelte Methodenaufrufe, und können damit nicht als referenziert werden. Daran hab ich nicht gedacht.
Nachdem die Methode unabhängig von der Funktionsweise der Collection sein sollte (kann ja bspw. ein Array, ne verkettete Liste oder sonstwas sein), ist die IMO einzig korrekte Methode, wie mirage schon sagt, die Übergabe der Indize und das Austauschen über diese.

greetz
Mike

[Luckie]

Ich kann im Moment leider nicht an dem Pojekt weiterarbeiten: http://www.delphipraxis.net/internal...=990793#990793

OK, geht wieder. :roll:

Richtig, wenn ich die variablen als var deklarierere bekomme ich

Zitat:

[Pascal Fehler] Contacts.pas(369): E2197 Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden

Meine Collection sieht so aus:

Delphi-Quellcode:

TContactCollection = class(TList)
  private
    FFilename: string;
    FFileInfo: TFileInfo;
    FXMLDoc: IXMLDOMDocument2;
    function GetFilename: string;
    procedure SetFilename(const Value: string);
    procedure ReadFileInfo;
    procedure GetContacts;
    procedure SwapIt(var Contact1, Contact2: TContact);
    function Get(Index: Integer): TContact;
    function GetFileInfo: TFileInfo;
    procedure SetFileInfo(const Value: TFileInfo);
  public
    destructor Destroy; override;
    procedure Add(Item: TContact);
    procedure LoadFromXMLFile;
    procedure MySort;
    property Items[Index: Integer]: TContact read Get;
    property Filename: string read GetFilename write SetFilename;
    property FileInfo: TFileInfo read GetFileInfo write SetFileInfo;
  end;

Ist also eine Ableitung von TList.

[mirage228]

TList.Exchange.

Viele Grüße

[Luckie]

Zitat:

Zitat von mirage228

TList.Exchange.

Danke, das wars. Man kann ja nicht alles kennen. ;)