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

* Add System.AnsiStrings for Delphi compatibility

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-12 17:49:41 +01:00
parent 407fb4b1da
commit f10bdf4012
2 changed files with 1428 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/vcl-compat/fpmake.pp
View File

@ -31,6 +31,7 @@ begin
P.Dependencies.Add('fcl-xml'); P.Dependencies.Add('fcl-xml');
P.Dependencies.Add('fcl-web'); P.Dependencies.Add('fcl-web');
P.Dependencies.Add('rtl-extra'); P.Dependencies.Add('rtl-extra');
P.Dependencies.Add('rtl-objpas');
P.Dependencies.Add('rtl-generics'); P.Dependencies.Add('rtl-generics');
P.SourcePath.Add('src'); P.SourcePath.Add('src');
P.IncludePath.Add('src'); P.IncludePath.Add('src');
@ -44,6 +45,7 @@ begin
T.ResourceStrings := True; T.ResourceStrings := True;
T:=P.Targets.AddUnit('system.devices.pp'); T:=P.Targets.AddUnit('system.devices.pp');
T:=P.Targets.AddUnit('system.analytics.pp'); T:=P.Targets.AddUnit('system.analytics.pp');
T:=P.Targets.AddUnit('system.ansistrings.pp');
{$ifndef ALLPACKAGES} {$ifndef ALLPACKAGES}

1426
packages/vcl-compat/src/system.ansistrings.pp Executable file
View File

File diff suppressed because it is too large Load Diff