我在網上看到一控件的源碼如下,請問是否把這些源碼另存為shareErr.pas即可調用呢?
還是需要做什麼,請指教.
unit ShareErr;

{ ShareErr v2.0
Translation of lmerr.h with a nice little function at
the end... By Jerry Ryle. This is free stuff, but I'll
take donations ;)

email me if you make it better -- gryle@.calpoly.edu
}

interface

CONST

NERR_Success = 0; { Success -- No Error }

NERR_BASE = 2100;

{**********WARNING *****************
* The range 2750-2799 has been *
* allocated to the IBM LAN Server *
***********************************}

{**********WARNING *****************
* The range 2900-2999 has been *
* reserved for Microsoft OEMs *
***********************************}

{ UNUSED BASE+0 }
{ UNUSED BASE+1 }
NERR_NetNotStarted = (NERR_BASE + 2);
NERR_UnknownServer = (NERR_BASE + 3);
NERR_ShareMem = (NERR_BASE + 4);
NERR_NoNetworkResource = (NERR_BASE + 5);
NERR_RemoteOnly = (NERR_BASE + 6);
NERR_DevNotRedirected = (NERR_BASE + 7);
{ UNUSED BASE+8 }
{ UNUSED BASE+9 }
{ UNUSED BASE+10 }
{ UNUSED BASE+11 }
{ UNUSED BASE+12 }
{ UNUSED BASE+13 }
NERR_ServerNotStarted = (NERR_BASE + 14);
NERR_ItemNotFound = (NERR_BASE + 15);
NERR_UnknownDevDir = (NERR_BASE + 16);
NERR_RedirectedPath = (NERR_BASE + 17);
NERR_DuplicateShare = (NERR_BASE + 18);
NERR_NoRoom = (NERR_BASE + 19);
{ UNUSED BASE+20 }
NERR_TooManyItems = (NERR_BASE + 21);
NERR_InvalidMaxUsers = (NERR_BASE + 22);
NERR_BufTooSmall = (NERR_BASE + 23);
{ UNUSED BASE+24 }
{ UNUSED BASE+25 }
{ UNUSED BASE+26 }
NERR_RemoteErr = (NERR_BASE + 27);
{ UNUSED BASE+28 }
{ UNUSED BASE+29 }

......
....
....