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

* Sysutils compatibility unit

Browse Source
This commit is contained in:
Michael Van Canneyt 2023-01-21 13:44:36 +01:00
parent d1b2fe1659
commit 0b5eaa50fb
5 changed files with 3718 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -38,6 +38,8 @@ begin
T:=P.Targets.AddUnit('system.netencoding.pp'); T:=P.Targets.AddUnit('system.netencoding.pp');
T.ResourceStrings := True; T.ResourceStrings := True;
T:=P.Targets.AddUnit('system.ioutils.pp');
T.ResourceStrings := True;
{$ifndef ALLPACKAGES} {$ifndef ALLPACKAGES}
Run; Run;

2520
packages/vcl-compat/src/system.ioutils.pp Normal file
View File

File diff suppressed because it is too large Load Diff

1181
packages/vcl-compat/tests/tciotuils.pas Normal file
View File

File diff suppressed because it is too large Load Diff

25
packages/vcl-compat/tests/testcompat.lpi
View File

@ -17,12 +17,11 @@
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages>
<Item1> <Item>
<PackageName Value="FCL"/> <PackageName Value="FCL"/>
</Item1> </Item>
</RequiredPackages> </RequiredPackages>
<Units> <Units>
<Unit> <Unit>
@ -33,6 +32,10 @@
<Filename Value="tcnetencoding.pp"/> <Filename Value="tcnetencoding.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit> </Unit>
<Unit>
<Filename Value="tciotuils.pas"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
@ -47,16 +50,16 @@
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Exceptions Count="3"> <Exceptions>
<Item1> <Item>
<Name Value="EAbort"/> <Name Value="EAbort"/>
</Item1> </Item>
<Item2> <Item>
<Name Value="ECodetoolError"/> <Name Value="ECodetoolError"/>
</Item2> </Item>
<Item3> <Item>
<Name Value="EFOpenError"/> <Name Value="EFOpenError"/>
</Item3> </Item>
</Exceptions> </Exceptions>
</Debugging> </Debugging>
</CONFIG> </CONFIG>

2
packages/vcl-compat/tests/testcompat.lpr
View File

@ -4,7 +4,7 @@ program testcompat;
uses uses
{$IFDEF UNIX}cwstring,{$ENDIF} {$IFDEF UNIX}cwstring,{$ENDIF}
Classes, consoletestrunner, tcnetencoding; Classes, consoletestrunner, tcnetencoding, tciotuils;
type type