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