paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 03:06:34 +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 // Extra additions
ssMeta, ssSuper, ssHyper, ssAltGr, ssCaps, ssNum, ssScroll); ssMeta, ssSuper, ssHyper, ssAltGr, ssCaps, ssNum, ssScroll);
// THelpContext = -MaxLongint..MaxLongint; THelpContext = -MaxLongint..MaxLongint;
THelpType = (htKeyword, htContext); THelpType = (htKeyword, htContext);
// TShortCut = Low(Word)..High(Word); TShortCut = Low(Word)..High(Word);
{ Standard events } { Standard events }
@ -511,8 +511,8 @@ type
public public
function Read(var Buffer; Count: Longint): Longint; virtual; abstract; function Read(var Buffer; Count: Longint): Longint; virtual; abstract;
function Write(const 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: Longint; Origin: Word): Longint; virtual; overload;
function Seek(Offset: Int64; Origin: TSeekOrigin): Int64; virtual; function Seek(Offset: Int64; Origin: TSeekOrigin): Int64; virtual; overload;
procedure ReadBuffer(var Buffer; Count: Longint); procedure ReadBuffer(var Buffer; Count: Longint);
procedure WriteBuffer(const Buffer; Count: Longint); procedure WriteBuffer(const Buffer; Count: Longint);
function CopyFrom(Source: TStream; Count: Int64): Int64; function CopyFrom(Source: TStream; Count: Int64): Int64;
@ -1294,7 +1294,10 @@ function LineStart(Buffer, BufPos: PChar): PChar;
{ {
$Log$ $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 + Added TRect definition
Revision 1.13 2001/10/28 17:16:44 peter Revision 1.13 2001/10/28 17:16:44 peter

13
fcl/inc/ssockets.pp
View File

@ -125,8 +125,8 @@ type
Protected Protected
Procedure DoConnect(ASocket : longint); Virtual; Procedure DoConnect(ASocket : longint); Virtual;
Public Public
Constructor Create(ASocket : longint); Override; Constructor Create(ASocket : longint); Override; Overload;
Constructor Create(const AHost: String; APort: Word); Constructor Create(const AHost: String; APort: Word); Overload;
Property Host : String Read FHost; Property Host : String Read FHost;
Property Port : Word Read FPort; Property Port : Word Read FPort;
end; end;
@ -137,8 +137,8 @@ type
Protected Protected
Procedure DoConnect(ASocket : longint); Virtual; Procedure DoConnect(ASocket : longint); Virtual;
Public Public
Constructor Create(ASocket : Longint); Constructor Create(ASocket : Longint); Overload;
Constructor Create(AFileName : String); Constructor Create(AFileName : String); Overload;
Property FileName : String Read FFileName; Property FileName : String Read FFileName;
end; end;
@ -515,7 +515,10 @@ end.
{ {
$Log$ $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 * FreeVSD fixy
Revision 1.5 2001/04/08 11:26:03 peter Revision 1.5 2001/04/08 11:26:03 peter