Bei Lazarus 1.6 wurden nur die nicht benötigten Units unter uses entfernt.
Delphi-Quellcode:
List.AddObject(NetResourceList[i].lpRemoteName,
Pointer(NetResourceList[i].dwDisplayType));
ergibt die Fehlermeldung
Zitat:
networkfunctions.pas(183,123) Error: Incompatible type for arg no. 2: Got "Pointer", expected "TObject"
.
Deshalb wurde daraus
Delphi-Quellcode:
List.Add(NetResourceList^[i].lpRemoteName);
// Pointer(NetResourceList^[i].dwDisplayType));
und irgendwie scheint sich der Pointer nicht zu bewegen.