소스 검색

* string -> ansistring

Michael VAN CANNEYT 2 년 전
부모
커밋
f3c3897cdf
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