paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 06:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added overload directive as requested by Paul

Browse Source 
git-svn-id: trunk@10949 -
This commit is contained in:
florian 2008-05-12 09:15:39 +00:00
parent e086e15cde
commit 88cfaf0a41
5 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -7317,6 +7317,7 @@ tests/test/opt/treg3.pp svneol=native#text/plain
tests/test/opt/treg4.pp svneol=native#text/plain
tests/test/opt/tretopt.pp svneol=native#text/plain
tests/test/opt/tspace.pp svneol=native#text/plain
tests/test/packages/fcl-registry/tregistry1.pp svneol=native#text/plain
tests/test/packages/hash/tmdtest.pp svneol=native#text/plain
tests/test/packages/webtbs/tw1808.pp svneol=native#text/plain
tests/test/packages/webtbs/tw3820.pp svneol=native#text/plain

4
packages/fcl-registry/src/registry.pp
View File

@ -69,7 +69,7 @@ type
procedure SetCurrentKey(Value: HKEY);
public
constructor Create; overload;
constructor Create(aaccess:longword);
constructor Create(aaccess:longword); overload;
destructor Destroy; override;
function CreateKey(const Key: string): Boolean;
@ -133,7 +133,7 @@ type
fFileName: String;
fPath : String;
public
constructor Create(const FN: string);
constructor Create(const FN: string); overload;
constructor Create(const FN: string;aaccess:longword); overload;
function ReadString(const Section, Ident, Default: string): string;
function ReadInteger(const Section, Ident: string;

4
tests/Makefile
View File

@ -1,5 +1,5 @@
#
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2008/04/18]
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2008/05/12]
#
default: allexectests
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-darwin x86_64-win64 x86_64-embedded arm-linux arm-palmos arm-darwin arm-wince arm-gba arm-nds arm-embedded arm-symbian powerpc64-linux powerpc64-darwin powerpc64-embedded avr-embedded armeb-linux armeb-embedded
@ -1430,7 +1430,7 @@ ifndef LOG
export LOG:=$(TEST_OUTPUTDIR)/log
endif
TESTSUBDIRS=cg cg/variants cg/cdecl opt units/system units/dos units/crt units/objects units/strings units/sysutils units/math units/sharemem
TESTPACKAGESUBDIRS=cg packages/win-base packages/webtbs packages/hash
TESTPACKAGESUBDIRS=cg packages/win-base packages/webtbs packages/hash packages/fcl-registry
ifdef QUICKTEST
export QUICKTEST
else

2
tests/Makefile.fpc
View File

@ -123,7 +123,7 @@ endif
# Subdirs available in the test subdir
TESTSUBDIRS=cg cg/variants cg/cdecl opt units/system units/dos units/crt units/objects units/strings units/sysutils units/math units/sharemem
TESTPACKAGESUBDIRS=cg packages/win-base packages/webtbs packages/hash
TESTPACKAGESUBDIRS=cg packages/win-base packages/webtbs packages/hash packages/fcl-registry
ifdef QUICKTEST
export QUICKTEST

8
tests/test/packages/fcl-registry/tregistry1.pp Normal file
View File

@ -0,0 +1,8 @@
uses
registry;
var
fReg: TRegIniFile;
begin
fReg := TRegIniFile.Create;
fReg.Free;
end.