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 von DeddyH:

Zitat:

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

Ja

Hm, man lernt immer wieder was dazu

[Die Muhkuh]

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

[DeddyH]

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

[JasonDX]

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:
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 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:
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