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

* TGUID and IUnknown is defined in the system unit by

Browse Source 
1.1 and above
This commit is contained in:
florian 2001-05-14 21:17:24 +00:00
parent f56c9c6855
commit ed3ff4ab51
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/inc/classesh.inc
View File

@ -22,8 +22,11 @@ type
HRSRC = longint;
THANDLE = longint;
TComponentName = string;
{$ifdef ver1_0}
// 1.1 and above has interfaces
IUnknown = class(TObject);
TGUID = longint;
{$endif ver1_0}
HMODULE = longint;
TPoint = record
@ -1242,7 +1245,11 @@ function LineStart(Buffer, BufPos: PChar): PChar;
{
$Log$
Revision 1.9 2001-04-13 18:03:51 peter
Revision 1.10 2001-05-14 21:17:24 florian
* TGUID and IUnknown is defined in the system unit by
1.1 and above
Revision 1.9 2001/04/13 18:03:51 peter
* added tthread.destroy override
Revision 1.8 2001/02/09 20:38:28 sg