代码搜索:sysutils
找到约 10,000 项符合「sysutils」的源代码
代码结果 10,000
www.eeworm.com/read/142201/12958407
pas upie.pas
UNIT UPie;
INTERFACE
USES
Windows, SysUtils, ExtCtrls, Graphics, Math, Registry, Forms, Globals;
TYPE
TPieParas = RECORD
ppBrushColor,
ppBorderColor : TColor;
ppBorderWi
www.eeworm.com/read/142087/12964433
pas selectsqlclass.pas
unit SelectsqlClass;
interface
uses
sysUtils, ADODB;
type
TselectsqlEvent=procedure(sender:Tobject;qry:Tadoquery) of object;
type
Tselectsql = class
private
Fadoconnection
www.eeworm.com/read/142087/12964447
pas datamodule.pas
unit Datamodule;
interface
uses
SysUtils, Classes, Provider, DBClient, DB, ADODB, Forms;
type
TData = class(TDataModule)
ADOConnection: TADOConnection;
QGetdata: TADOQuery;
www.eeworm.com/read/142087/12964740
pas qlxbutton.pas
unit Qlxbutton;
interface
uses
Windows, Graphics, controls, Messages, SysUtils, Classes, ExtCtrls;
type
Tlxbutton = class(TCustomPanel)
private
FPiconMouseDown:Tpicture;
FP
www.eeworm.com/read/142087/12964841
pas data.pas
unit data;
interface
uses
SysUtils, Classes, MConnect, ObjBrkr, DB, DBClient, SConnect;
type
TDatam = class(TDataModule)
SCTlx: TSocketConnection;
SOBlx: TSimpleObjectBroker;
www.eeworm.com/read/243010/12968733
pas tflathintunit.pas
unit TFlatHintUnit;
interface
uses
Classes, Windows, Graphics, Messages, Controls, Forms, SysUtils, FlatUtilitys;
type
TFlatHint = class(TComponent)
private
FHintFont: TFont;
www.eeworm.com/read/141734/12988789
pas ctlpoint.pas
unit ctlpoint;
interface
uses Messages, Windows, SysUtils, Classes, Controls, Forms, Menus,
Graphics;
type
TControlPoint = class(TGraphicControl)
private
Flinecolor : Tcolo
www.eeworm.com/read/141734/12988808
pas grapoint.pas
unit grapoint;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TGraphPoint = class(TGraphicControl)
private
Flinecolor : Tcolor
www.eeworm.com/read/141724/12989075
pas autoupdate.pas
unit AutoUpdate;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ItigProgressKnown, itignet, itigoptions, WinBinFile;
const wtCheckServer = 'CHE
www.eeworm.com/read/242678/12992813
pas calcexpress.pas
unit CalcExpress;
{%File 'CalcExpress.bdsproj'}
interface
uses
Windows,
Classes,
StrUtils,
Math,
Dialogs,
SysUtils;
const DecimalSeparator = '.';
type
TTree = class