代码搜索：TObject
找到约 10,000 项符合「TObject」的源代码
代码结果 10,000
www.eeworm.com/read/338159/3320078
vb is.vb
' FastScript v1.0
' 'is' operator demo
dim o, p
o = new TObject
p = new TPersistent
if o is TObject then
ShowMessage("o is TObject")
end if
if p is TObject
www.eeworm.com/read/192239/8396693
inc object.inc
{$IFNDEF object}
{$DEFINE object}
type
PObject=^TObject;
TObject=object
constructor init;
procedure free; virtual;
destructor done; virtual;
end; {TObject}
constructor TO
www.eeworm.com/read/193547/8218481
inc object.inc
{$IFNDEF object}
{$DEFINE object}
type
PObject=^TObject;
TObject=object
constructor init;
procedure free; virtual;
destructor done; virtual;
end; {TObject}
constructor TO
www.eeworm.com/read/128460/14296732
pas uobjects.pas
unit uObjects;
interface
uses
SysUtils, Variants, Classes;
type
TObject1 = class(TObject)
private
FID : String;
public
function ToString : String;
end;
TObject2
www.eeworm.com/read/389157/2543246
pas uobjects.pas
unit uObjects;
interface
uses
SysUtils, Variants, Classes;
type
TObject1 = class(TObject)
private
FID : String;
public
function ToString : String;
end;
TObject2
www.eeworm.com/read/320003/3550898
obs testdelphinetattributes.obs
unit testdelphinetattributes;interface uses classes;type [serializable]tcontainer
=class(TObject)public end;[serializable]tcontainer2=class(TObject)public end;tcontainer3
=class(TObject)public end;[
www.eeworm.com/read/108103/6185990
cpp is.cpp
/**************************}
{ FastScript v1.0 }
{ 'is' operator demo }
{**************************/
{
TObject o = new TObject;
TPersistent p = new TPersistent;
if (o is
www.eeworm.com/read/338159/3320031
cpp is.cpp
/**************************}
{ FastScript v1.0 }
{ 'is' operator demo }
{**************************/
{
TObject o = new TObject;
TPersistent p = new TPersistent;
if (o is
www.eeworm.com/read/126984/14390588
pas printbarcode.pas
unit PrintBarcode;
interface
PROCEDURE DrawBarCode(PrintWhere : TObject;UsePixelsPerInchX : integer);
implementation
PROCEDURE DrawBarCode(PrintWhere : TObject;UsePixelsPerInchX : integer);
www.eeworm.com/read/355979/10240343
pas classicalautoptr.pas
unit ClassicalAutoPtr;
interface
uses
SysUtils;
type
TClassicalAutoPtr = class(TInterfacedObject)
private
fObj: TObject;
public
constructor Create(aObj: TObject); vi