ソースを参照

* string -> ansistring

Michael VAN CANNEYT 2 年 前
コミット
581dfc6d28
2 ファイル変更2 行追加2 行削除
  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;
 
 
-function GetLoadErrorStr: String;
+function GetLoadErrorStr: AnsiString;
 begin
   Result:=CurrentDLM.GetLoadErrorStr();
 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; Ordinal: TOrdinalEntry) : {$ifdef cpui8086}FarPointer{$else}Pointer{$endif};
 Function UnloadLibrary(Lib : TLibHandle) : Boolean;
-Function GetLoadErrorStr: string;
+Function GetLoadErrorStr: AnsiString;
 
 // Kylix/Delphi compability