Browse Source

* string -> ansistring

Michael VAN CANNEYT 2 years ago
parent
commit
581dfc6d28
2 changed files with 2 additions and 2 deletions
  1. 1 1
      rtl/inc/dynlib.inc
  2. 1 1
      rtl/inc/dynlibh.inc

+ 1 - 1
rtl/inc/dynlib.inc

@@ -101,7 +101,7 @@ begin
 end;
 end;
 
 
 
 
-function GetLoadErrorStr: String;
+function GetLoadErrorStr: AnsiString;
 begin
 begin
   Result:=CurrentDLM.GetLoadErrorStr();
   Result:=CurrentDLM.GetLoadErrorStr();
 end;
 end;

+ 1 - 1
rtl/inc/dynlibh.inc

@@ -54,7 +54,7 @@ Function LoadLibrary(const Name : UnicodeString) : TLibHandle;
 Function GetProcedureAddress(Lib : TlibHandle; const ProcName : AnsiString) : {$ifdef cpui8086}FarPointer{$else}Pointer{$endif};
 Function GetProcedureAddress(Lib : TlibHandle; const ProcName : AnsiString) : {$ifdef cpui8086}FarPointer{$else}Pointer{$endif};
 Function GetProcedureAddress(Lib : TLibHandle; Ordinal: TOrdinalEntry) : {$ifdef cpui8086}FarPointer{$else}Pointer{$endif};
 Function GetProcedureAddress(Lib : TLibHandle; Ordinal: TOrdinalEntry) : {$ifdef cpui8086}FarPointer{$else}Pointer{$endif};
 Function UnloadLibrary(Lib : TLibHandle) : Boolean;
 Function UnloadLibrary(Lib : TLibHandle) : Boolean;
-Function GetLoadErrorStr: string;
+Function GetLoadErrorStr: AnsiString;
 
 
 // Kylix/Delphi compability
 // Kylix/Delphi compability