代码搜索：TObject
找到约 10,000 项符合「TObject」的源代码
代码结果 10,000
www.eeworm.com/read/108103/6186061
pas is.pas
{**************************}
{ FastScript v1.0 }
{ 'is' operator demo }
{**************************}
var
o: TObject;
p: TPersistent;
begin
o := TObject.Create;
p := T
www.eeworm.com/read/338159/3320106
pas is.pas
{**************************}
{ FastScript v1.0 }
{ 'is' operator demo }
{**************************}
var
o: TObject;
p: TPersistent;
begin
o := TObject.Create;
p := T
www.eeworm.com/read/419819/10835048
pas commonunit.pas
unit CommonUnit;
interface
uses
Controls,Forms,Graphics,
SysUtils,TypInfo,Math;
procedure RecordProcess(VarObject:TObject);
procedure ResizeProcess(VarObject:TObject);
func
www.eeworm.com/read/320003/3550770
out testdelphinetattributes.out
unit testdelphinetattributes;
interface
uses Classes;
type
[serializable]
tcontainer = class(TObject)
public
end;
[serializable]
tcontainer2 = class(TObject)
public
www.eeworm.com/read/320003/3550835
out testdelphinetdynamicarray.out
unit testdelphinetdynamicarray;
interface
implementation
uses SysUtils;
type
tobjectdynarray = array of TObject;
procedure tabobjet(args: array of TObject);
var
i: integer;
begi
www.eeworm.com/read/320003/3551071
out testcastsimple.out
unit testcastsimple;
interface
uses Classes, StdCtrls;
var
lcstrings: TStringList;
lcobj: TObject;
lcbutton: TButton;
implementation
procedure testdot;
var
lc: TObject
www.eeworm.com/read/141263/13027176
pas handlexcep.pas
unit HandlExcep;
interface
uses
SysUtils,Classes,Forms,Dialogs;
type
TMyClass=Class(Tobject)
Public
Procedure MyOwnExceptionHandler(Sender:Tobject;E:Exception);
e
www.eeworm.com/read/304286/13796876
pas uconsole.pas
unit uConsole;
interface
uses windows;
type
TOnData = procedure(Sender: TObject; Data: String) of object;
TOnRun = procedure(Sender: TObject) of object;
TRedirectedConsole = Class(TO
www.eeworm.com/read/304286/13796887
pas uconsole.pas
unit uConsole;
interface
uses windows;
type
TOnData = procedure(Sender: TObject; Data: String) of object;
TOnRun = procedure(Sender: TObject) of object;
TRedirectedConsole = Class(TO
www.eeworm.com/read/485187/6566965
pas dxservercoremanager.pas
unit DXServerCoreManager;
interface
uses
SysUtils,
DXString,
DXSock,
DXServerCore,
Classes;
Type
TDX_CreateInstance=procedure(Sender:TObject;Var NewInstance:TObject;co