代码搜索：TObject
找到约 10,000 项符合「TObject」的源代码
代码结果 10,000
www.eeworm.com/read/102871/15754622
pas smallu.pas
unit SmallU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, Spin, ExtCtrls, ComCtrls, BasicU, StepU;
type
rcpetty=record
www.eeworm.com/read/100044/15887126
cpp pingtst1.cpp
/*---------------------------------------------------------------------------
Author: Fran鏾is PIETTE
Description: This demo show how to use the TPing object to ping any host.
EMail:
www.eeworm.com/read/100044/15887537
pas srv5.pas
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Author: Fran鏾is PIETTE
Object: Demo program to show how to use TWSocket object is a very
sim
www.eeworm.com/read/189716/8457789
pas nmfifobuffer.pas
unit NMFifoBuffer;
interface
uses
Classes, Windows, SysUtils;
type
TNMFifoBuffer = class( TObject )
private
// BufStream
FBufferSize: LongInt; // Curr
www.eeworm.com/read/390482/8463791
pas eventunit.pas
unit EventUnit;
interface
type
THitMessage = procedure (aHitMessage :string ) of object ;
TAttendanceEvent = class(TObject)
private
FHitMessage : THitMessage ;
FEndMessage :
www.eeworm.com/read/390482/8464046
~pas eventunit.~pas
unit EventUnit;
interface
type
THitMessage = procedure (aHitMessage :string ) of object ;
TAttendanceEvent = class(TObject)
private
FHitMessage : THitMessage ;
FEndMessage :
www.eeworm.com/read/179849/9335106
pas ajaltermenu.pas
unit ajAlterMenu;
interface
uses
Windows, Graphics, Controls;
type
TajAlterMenu = class(TObject) // The AlterMenu component.
private
fOwner
www.eeworm.com/read/168161/9936123
txt 实例——确定用户登录数据库的合法性.txt
procedure TForm1.SQLConnectionBeforeConnect(Sender: TObject);
begin
with Sender as TSQLConnection do
begin
if LoginPrompt = False then
{判别TSQLConnection
www.eeworm.com/read/308406/13702015
pas rm_autosearchfield.pas
unit RM_AutoSearchField;
interface
type
TRMAutoSearchField = class(TObject)
private
protected
public
end;
implementation
end.
www.eeworm.com/read/216875/4879719
pas unboundmodedemominercore.pas
unit UnboundModeDemoMinerCore;
interface
uses
UnboundModeDemoTypes;
type
TMinerField = class(TObject)
private
FHeight: Integer;
FWidth: Integer;
FMineCount: Integer;