Übersetzung Class MagneticWindow

[EWeiss]

Zitat von Muetze1:

Du hast 100%ig zIdx nicht nochmal woanders verwendet bzw. deklariert? z.B. als Funktionsname?

Delphi-Quellcode:

function TMagnetic.zIdx(lng_hWnd: Integer; bAdd: Boolean = False): Integer; 
//Get the sc_aSubData() array index of the passed hWnd 
//Get the upper bound of sc_aSubData() 
//If you get an error here, you're probably Subclass_AddMsg-ing before Subclass_Start 

begin 
    zIdx := UBound(sc_aSubData); 
     While zIdx >= 0 Do                 //Iterate through the existing sc_aSubData() elements 
        With sc_aSubData[zIdx] do 
        begin 
            If (hwnd = lng_hWnd) Then   //If the hWnd of this element is the one we're looking for 
            begin 
              If (Not bAdd) Then        //If we're searching not adding 
                Exit;                   //Found 
              If (hwnd = 0) Then        //If this an element marked for reuse. 
              begin 
                If (bAdd) Then          //If we're adding 
                    Exit; 
              end; 
            End; 
        End; 
        dec(zIdx);                      //Decrement the index 

End;

zIdx ist die funktion in der ich mich befinde.
Ansonsten wird sie nur im Header als privat nochmal aufgeführt!
function zIdx(lng_hWnd: Integer; bAdd: Boolean = False): Integer;

Gruß