代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/282494/9088895
pas videomci.pas
unit VideoMci;
interface
uses Windows, SysUtils, Graphics, Controls, MMSystem, VfW;
type
TMciStatusProc = procedure(Sender: TObject) of object;
var
gMciVideoArea : TWinControl;
www.eeworm.com/read/282487/9089167
pas jclasses.pas
unit JClasses;
interface
uses SysUtils;
const
MaxListSize = Maxint div 16;
type
EListError = class(Exception);
PPointerList = ^TPointerList;
TPointerList = array[0..MaxListSize - 1]
www.eeworm.com/read/282487/9089421
pas castle.pas
unit Castle;
interface
uses
Windows, Classes, SysUtils, IniFiles, Grobal2, ObjBase, ObjMon2, Guild, Envir;
const
MAXCASTLEARCHER = 12;
MAXCALSTEGUARD = 4;
type
TDefenseUnit = record
www.eeworm.com/read/282487/9089520
pas o.jsocket.pas
{ *********************************************************************** }
{ }
{ Delphi Runtime Library
www.eeworm.com/read/282487/9089664
pas sdk.pas
unit SDK;
interface
uses
Windows, SysUtils, Classes, Grobal2, ObjBase, Forms;
const
MAXPULGCOUNT = 20;
type
TProcArrayInfo = record
sProcName: string;
nProcAddr: Pointer;
www.eeworm.com/read/282487/9089689
pas runsock.pas
unit RunSock;
interface
uses
Windows, Classes, SysUtils, StrUtils, SyncObjs, JSocket, ObjBase, Grobal2,
FrnEngn, UsrEngn, Common;
type
TGateUserInfo = record
sAccount: string;
www.eeworm.com/read/282487/9089709
pas jsocket.pas
{ *********************************************************************** }
{ }
{ Delphi Runtime Library
www.eeworm.com/read/282487/9089939
pas envir1.pas
unit Envir;
interface
uses
Windows, SysUtils, Classes, Grobal2;
type
TMapHeader = packed record
wWidth: Word;
wHeight: Word;
sTitle: string[16];
UpdateDate: TDateTime;
www.eeworm.com/read/282487/9089985
pas guild.pas
unit Guild;
interface
uses
Windows, SysUtils, Classes,IniFiles,ObjBase;
type
TGuildRank = record
nRankNo :Integer;
sRankName :String;
MemberList :TStringList;
end;
www.eeworm.com/read/282487/9089998
pas envir.pas
unit Envir;
interface
uses
Windows, SysUtils, Classes, Grobal2;
type
TMapHeader = packed record
wWidth: Word;
wHeight: Word;
sTitle: string[16];
UpdateDate: TDateTime;