代码搜索: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