Methode wird nicht aufgerufen

[Luckie]

Folgen der Code:

Delphi-Quellcode:

procedure TContactCollection.MySort;
var
  i, j              : integer;
begin

  for i := 1 to Self.Count do
    for j := Self.Count - 1 downto i do
      if Self.Items[j - 1].FName < Self.Items[j].FName then
      begin
        Self.SwapIt(Self.Items[j - 1], Self.Items[j]);
      end;
end;

procedure TContactCollection.SwapIt(Contact1, Contact2: TContact);
var
  TempObj           : TContact;
begin
  TempObj := Contact1;
  Contact1 := Contact2;
  Contact2 := TempObj;
end;

Delphi meint, dass die Variablen Contact1, Contact2 und TempObj nie benutzt werden. Stimmt auch, die Methode SwapIt wird nicht aufgerufen. Aber warum nicht? In der Methode MySort wird sie doch aufgerufen.

Mein Ziel ist es zwei Objekte aus der Liste miteinander zu vertauschen.

[mirage228]

Moin,

Edit:
Du müsstest nicht die Kontakte, sondern die Listen-Indizes übergeben und darüber tauschen. Dein SwapIt ist derzeit recht sinnlos...
Edit 2:
Was ist außerdem "FName" für ein Typ? Kann man Strings einfach mit einem Größer/Kleiner als überprüfen?


Viele Grüße

[DeddyH]

Zitat:

Kann man Strings einfach mit einem Größer/Kleiner als überprüfen?

Ja ;)

[mirage228]

Zitat:

Zitat von DeddyH

Zitat:

Kann man Strings einfach mit einem Größer/Kleiner als überprüfen?

Ja ;)

Hm, man lernt immer wieder was dazu :dp:

[Die Muhkuh]

Zitat:

Zitat von DeddyH

Zitat:

Kann man Strings einfach mit einem Größer/Kleiner als überprüfen?

Ja ;)

Hast Du mal ne Quelle, wie genau das verglichen wird?

[haentschman]

Zitat:

Kann man Strings einfach mit einem Größer/Kleiner als überprüfen?

- > oder < ist dann ungefähr wie bei der Sortierreihenfolge
- aber auch Groß und Kleinbuchstaben sind unterschiedlich entsprechend ihrem Wert

...nur so nebenbei :roll:

[DeddyH]

Richtig, das 'A' hat den ASCII-Code 65, das 'a' 97.

[JasonDX]

Zitat:

Zitat von Luckie

Delphi-Quellcode:

procedure TContactCollection.SwapIt(Contact1, Contact2: TContact);
var
  TempObj           : TContact;
begin
  TempObj := Contact1;
  Contact1 := Contact2;
  Contact2 := TempObj;
end;

Delphi meint, dass die Variablen Contact1, Contact2 und TempObj nie benutzt werden. Stimmt auch, die Methode SwapIt wird nicht aufgerufen. Aber warum nicht? In der Methode MySort wird sie doch aufgerufen.

Die Methode wird wegoptimiert. Contact1 und Contact2 werden per CallByValue übergeben, d.h. Änderungen bzgl. dieser Variablen haben außerhalb der aufgerufenen Methode keinen Effekt, und werden darin auch nicht weiter verwendet. Somit hat die Methode keinen Einfluss auf den Ablauf oder den Zustand deines Programms, ergo spart sich der Compiler die Arbeit und ruft die Methode gar nicht auf. Um die Werte in Contact1 und Contact2 (sei es ein Integer oder ein Referenzzeiger) außerhalb zu bearbeiten, musst du die Variablen per CallByReference übergeben:

Delphi-Quellcode:

procedure TContactCollection.SwapIt(var Contact1, Contact2: TContact);

greetz
Mike

[DeddyH]

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

[mirage228]

Zitat:

Zitat von JasonDX

Um die Werte in Contact1 und Contact2 (sei es ein Integer oder ein Referenzzeiger) außerhalb zu bearbeiten, musst du die Variablen per CallByReference übergeben:

Delphi-Quellcode:

procedure TContactCollection.SwapIt(var Contact1, Contact2: TContact);

Das wollte ich auch erst vorschlagen, aber 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...).

Viele Grüße

[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. ;)