pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

synafpc.pas - required ansistring functions are avaiable in XE4+

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@247 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2022-01-12 19:07:32 +00:00
parent da9579d128
commit 0a87698121
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
synafpc.pas
View File

@ -102,7 +102,7 @@ type
{$ENDIF}
{$ENDIF}
{$IFDEF VER100}
{$IFDEF DELPHI3}
LongWord = DWord;
{$ENDIF}
@ -154,7 +154,7 @@ begin
{$IfDef FPC}
Result := SysUtils.StrLCopy(Dest, Source, MaxLen);
{$Else}
{$IFDEF DELPHI25_UP}
{$IFDEF DELPHIXE4_UP}
{$IfDef NEXTGEN}
Result := PAnsiChar( System.SysUtils.StrLCopy(PWideChar(Dest^), PWideChar(Source^), MaxLen)^ );
{$Else}
@ -171,7 +171,7 @@ begin
{$IfDef FPC}
Result := SysUtils.strlcomp(Str1, Str2, MaxLen);
{$Else}
{$IFDEF DELPHI25_UP}
{$IFDEF DELPHIXE4_UP}
{$IfDef NEXTGEN}
Result := System.SysUtils.StrLComp(PWideChar(Str1^), PWideChar(Str2^), MaxLen);
{$Else}