paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 16:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* string -> ansistring

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 11:53:36 +01:00 committed by Michaël Van Canneyt
parent 775408b21b
commit 581dfc6d28
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/dynlib.inc
View File

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

2
rtl/inc/dynlibh.inc
View File

@ -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