代码搜索:TObject
找到约 10,000 项符合「TObject」的源代码
代码结果 10,000
www.eeworm.com/read/320003/3550834
obs testgenericoperatoras.obs
program testgenericoperatoras;{$APPTYPE CONSOLE}uses sysutils;type maclasse=class
function contraint(avalue:tobject):x;function noncontraint(avalue:tobject
):x;procedure test;end;functio
www.eeworm.com/read/320003/3551059
obs testcastsimple.obs
unit testcastsimple;interface uses classes,stdctrls;var lcstrings:tstringlist;lcobj
:tobject;lcbutton:tbutton;implementation procedure testdot;var lc:tobject;begin lc
:=lcbutton.owner;lc:=(lcobj as
www.eeworm.com/read/306033/13754768
pb basic_nestedclasses.pb
Class Outer
Inherits TObject
Private x As Integer = 10
Shared Dim y = "abc"
Sub New()
Me = MyBase.Create()
End Sub
Class Inner
Inherits TObject
Private x As Inte
www.eeworm.com/read/320003/3550862
obs testclassvarempty.obs
unit testclassvarempty;interface type tmyclass1=class(TObject)private class var
protected procedure someprotectedmethod;end;type tmyclass2=class(TObject)private
procedure somemethod;protected clas
www.eeworm.com/read/279103/10465132
pas unit_queryoperationuse.pas
unit Unit_QueryOperationUse;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Unit_custbrowsebase_P, TFlatCheckListBoxUnit, StdCtrls, CheckLst,
I
www.eeworm.com/read/158420/11619533
pas unit_queryoperationuse.pas
unit Unit_QueryOperationUse;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Unit_custbrowsebase_P, TFlatCheckListBoxUnit, StdCtrls, CheckLst,
I
www.eeworm.com/read/174339/9594596
pas unit_queryoperationuse.pas
unit Unit_QueryOperationUse;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Unit_custbrowsebase_P, TFlatCheckListBoxUnit, StdCtrls, CheckLst,
I
www.eeworm.com/read/172182/9721776
txt events.txt
本文件由 DeDe Ver 3.50.04 创建!Copyright (c) 1999-2001 DaFixer
System
TObject.System.GetBlockDesc:PBlockDesc; 004014C8
TObject.System.DeleteBlock(PBlockDesc);
www.eeworm.com/read/237993/13914335
txt 得到打印机驱动的版本.txt
uses WinSpool;
procedure TForm1.FormCreate(Sender: TObject);
begin
comboPrinters.Items.Assign( Printer.Printers );
end;
procedure TForm1.Button1Click(Sender: TObject);
var
www.eeworm.com/read/320003/3550899
obs testdelphinetstatic.obs
unit testdelphinetstatic;interface type tmyclass=class(TObject)class var instancecount
:integer;end;type tmyclass2=class(TObject)public class procedure showinstancecount
;static;end;type tmyclass3=c