代码搜索：sysutils
找到约 10,000 项符合「sysutils」的源代码
代码结果 10,000
www.eeworm.com/read/148016/12500977
pas huiduoid.pas
unit HuiDuoID;
interface
uses SelfFunc,
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
/////////////////////////////////////////////////////////////////////////
www.eeworm.com/read/148016/12501098
pas icdmdll.pas
unit ICDMDLL;
interface
uses SelfFunc,
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
/////////////////////////////////////////////////////////////////////////
/
www.eeworm.com/read/237993/13914294
txt 计算目录空间大小.txt
function GetDirectorySize(const ADirectory: string): Integer;
var
Dir: TSearchRec;
Ret: integer;
Path: string;
begin
Result := 0;
Path := ExtractFilePath(ADirectory);
Ret := Sysutils.FindFirst
www.eeworm.com/read/132883/14068041
pas chgexitem.pas
unit chgExitem;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, Spin, ComCtrls;
type
TfrmChgExitem = class(TForm
www.eeworm.com/read/292154/8372536
pas mc_ygxxcx.pas
unit MC_YGXXCX;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TYGXXCX = class(TForm)
private
{ Private declarations }
public
www.eeworm.com/read/292154/8373038
pas mc_dlmcdj.pas
unit MC_DLMCDJ;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TDLMCDJ = class(TForm)
private
{ Private declarations }
public
www.eeworm.com/read/433001/8554933
pas unit1.pas
unit Unit1;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
Dialogs, DBTables, DB, ADODB;
type
TCustomerData = class(TDataModule)
ADOConnection1:
www.eeworm.com/read/187729/8604642
pas unit2.pas
unit Unit2;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDM = class(TDataModule)
ADOConnection1: TADOConnection;
qGroup: TADOQuery;
qLinkMan: TADOQuery;
qSearc
www.eeworm.com/read/187729/8604715
~pas unit2.~pas
unit Unit2;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDM = class(TDataModule)
ADOConnection1: TADOConnection;
qGroup: TADOQuery;
qLinkMan: TADOQuery;
qSearc
www.eeworm.com/read/286667/8751393
pas fm_main.pas
unit fm_maiin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }