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