Übersetzung Class MagneticWindow

[EWeiss]

Delphi-Quellcode:

    // Validate windows
    If (IsWindow(Handle) And IsWindow(hWndParent)) Or (hWndParent = 0) Then
        begin
        // Increase count
        inc(m_lWndCount);
        // Resize arrays
        SetLength(m_uWndInfo, m_lWndCount);
//        ReDim Preserve m_uWndInfo(0 To m_lWndCount);
        SetLength(m_rcWnd, m_lWndCount);
//        ReDim Preserve m_rcWnd(0 To m_lWndCount);

        // Add info
        With m_uWndInfo[m_lWndCount -1] do
          begin
            hwnd := Handle;
            hWndParent := hWndParent;
          end;

Läuft jetzt durch bis an dieser stelle!
Bei ReDim Preserve funktioniert diese anweisung With m_uWndInfo[m_lWndCount] do Bei SetLength(m_rcWnd, m_lWndCount); muss ich den counter wieder um eins herabsetzen With m_uWndInfo[m_lWndCount -1] do ansonsten werden mir keine Daten übergeben.

Ich denke mal wenn Length(Array)-1 wird das so in Ordnung sein.

gruß