i dont understant this error
lazarus / 8-Other

----------------------------------------------------------------------
cpalx · 2009-03-31 18:16

Hello,I have Lazarus 0.9.26.1
FPC 2.2.2 in windows XP SP3

i have this code (part):

public
    { public declarations }

    SysPath: String;

....


function TDM.DLLconexion(): Boolean;
var s:string;
Begin
       SysPath := ExtractFilePath(Application.ExeName);
       result := false;
  //Cargando la bibliotecas necesaria de a cuerdo al SO
  {$IFDEF MSWINDOWS}
          iBiblioteca:=LoadLibrary(pchar('crypt.dll'));  //
Encriptacion
  {$ELSE}
          iBiblioteca:=LoadLibrary(pchar('crypt.so'));
  {$ENDIF}
          if iBiblioteca <>0 then
          Begin
            pointer(XorStr)       := GetProcAddress(iBiblioteca,
'XorStr');
....

that code works good in other project. I copied the myfile.pas (and
added to project), to another project. It compiled, but when i called
the function, i have the error :

Procedure : fpc_ansistr_dcr_ref

any idea?

----------------------------------------------------------------------
cpalx · 2009-03-31 20:05

i solved myself
int he new project, i have to create a new datamodulo, i added the
same components as de original (same name and properties) then i copy
the first file to the new one, and then works.