Methode wird nicht aufgerufen

[Luckie]

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

OK, geht wieder.

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.