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

* overload fix

Browse Source
This commit is contained in:
peter 2001-11-20 18:53:29 +00:00
parent f20cbc5edf
commit cd2129ced8
2 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fcl/inc/classesh.inc
View File

@ -100,10 +100,10 @@ type
// Extra additions
ssMeta, ssSuper, ssHyper, ssAltGr, ssCaps, ssNum, ssScroll);
// THelpContext = -MaxLongint..MaxLongint;
THelpContext = -MaxLongint..MaxLongint;
THelpType = (htKeyword, htContext);
// TShortCut = Low(Word)..High(Word);
TShortCut = Low(Word)..High(Word);
{ Standard events }
@ -511,8 +511,8 @@ type
public
function Read(var Buffer; Count: Longint): Longint; virtual; abstract;
function Write(const Buffer; Count: Longint): Longint; virtual; abstract;
function Seek(Offset: Longint; Origin: Word): Longint; virtual;
function Seek(Offset: Int64; Origin: TSeekOrigin): Int64; virtual;
function Seek(Offset: Longint; Origin: Word): Longint; virtual; overload;
function Seek(Offset: Int64; Origin: TSeekOrigin): Int64; virtual; overload;
procedure ReadBuffer(var Buffer; Count: Longint);
procedure WriteBuffer(const Buffer; Count: Longint);
function CopyFrom(Source: TStream; Count: Int64): Int64;
@ -1294,7 +1294,10 @@ function LineStart(Buffer, BufPos: PChar): PChar;
{
$Log$
Revision 1.14 2001-10-29 19:38:13 michael
Revision 1.15 2001-11-20 18:53:29 peter
* overload fix
Revision 1.14 2001/10/29 19:38:13 michael
+ Added TRect definition
Revision 1.13 2001/10/28 17:16:44 peter

13
fcl/inc/ssockets.pp
View File

@ -125,8 +125,8 @@ type
Protected
Procedure DoConnect(ASocket : longint); Virtual;
Public
Constructor Create(ASocket : longint); Override;
Constructor Create(const AHost: String; APort: Word);
Constructor Create(ASocket : longint); Override; Overload;
Constructor Create(const AHost: String; APort: Word); Overload;
Property Host : String Read FHost;
Property Port : Word Read FPort;
end;
@ -137,8 +137,8 @@ type
Protected
Procedure DoConnect(ASocket : longint); Virtual;
Public
Constructor Create(ASocket : Longint);
Constructor Create(AFileName : String);
Constructor Create(ASocket : Longint); Overload;
Constructor Create(AFileName : String); Overload;
Property FileName : String Read FFileName;
end;
@ -515,7 +515,10 @@ end.
{
$Log$
Revision 1.6 2001-04-20 18:50:00 marco
Revision 1.7 2001-11-20 18:53:29 peter
* overload fix
Revision 1.6 2001/04/20 18:50:00 marco
* FreeVSD fixy
Revision 1.5 2001/04/08 11:26:03 peter