代码搜索：TObject
找到约 10,000 项符合「TObject」的源代码
代码结果 10,000
www.eeworm.com/read/413128/11166140
pas unit1.pas
unit Unit1;
{
【功能说明】
1、“打开文件按钮”
打开一个pas文件，加载到编辑区。当提示是否折叠刷新时，请点确定。
2、“保存文件按钮”
首先确保已经“折叠刷新”过，否则不能保存。
3、“折叠刷新按钮”
打开或粘贴一段程序后，首先要进行“折叠刷新”才能折叠。
4、“折叠级数”
录入折叠级数，或把光标置于要折叠的行，可进行该层的折叠。
...
www.eeworm.com/read/412142/11213949
~pas mainform.~pas
{
发票里需要用到的项目
ShiShouFee---------实收金额
ZhiNaJin-----------实收滞纳金
BenYueYE-----------本月余额
2003-7-18 更新
-------------------------------------
1.增加
}
unit MainForm;
interface
uses
www.eeworm.com/read/412142/11214003
pas mainform.pas
{
发票里需要用到的项目
ShiShouFee---------实收金额
ZhiNaJin-----------实收滞纳金
BenYueYE-----------本月余额
2003-7-18 更新
-------------------------------------
1.增加 YuEisNegative :Boolean 这个变量
作用举例说明:如果
www.eeworm.com/read/266280/11233609
pas echmmain.pas
unit EchmMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, ComCtrls, dxBar, StdCtrls, dxBarExtItems, cxControls, DB,
ImgList, Act
www.eeworm.com/read/148121/12490773
pas umain.pas
{******************************************************************************}
{* DCPcrypt v2.0 written by David Barton (crypto@cityinthesky.co.uk) **********}
{***********************************
www.eeworm.com/read/334745/12578679
pas fmain.pas
unit FMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DXDraws, DXClass, DirectX, DXSounds, uSound, Cltype, A2Form, A2Img, uAnsTick,
ExtCtr
www.eeworm.com/read/334549/12592783
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/334549/12593852
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/237993/13914066
txt 让edit只接收数字.txt
procedure TfOilAppend.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if Key #8 then begin
if ((Key < '0') or (Key > '9')) and (Key '.') then
Key := chr(0);
if (Key = '
www.eeworm.com/read/235723/14054944
pas unit1.pas
{ **********************************************************************
* Program QUADRIT.DPR *
* Version 1.2