代码搜索：sysutils
找到约 10,000 项符合「sysutils」的源代码
代码结果 10,000
www.eeworm.com/read/102831/15756637
pas unit3.pas
unit Unit3;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;
type
TAboutBox = class(TForm)
Label1: TLabel;
Label2: TLabel;
www.eeworm.com/read/102553/15771092
pas khzlbb.pas
unit khzlbb;
interface
uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls;
type
TkhzlReport = class(TQuickRep)
private
p
www.eeworm.com/read/102516/15779614
pas about.pas
unit About;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TfrmAbout = class(TForm)
Memo1: TMemo;
www.eeworm.com/read/102516/15779630
~pas about.~pas
unit About;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TfrmAbout = class(TForm)
Memo1: TMemo;
www.eeworm.com/read/102337/15785816
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TFrame1 = class(TFrame)
private
{ Private declarations }
www.eeworm.com/read/101761/15819193
l magic.l
%{
(* 演示状态的用法 *)
program Magic;
{$APPTYPE CONSOLE}
uses
SysUtils, LexLib;
%}
%s SMAGIC
%%
.+ begin
Start(0);
write('Magic:');
ECHO;
end;
magic start(SMAGIC
www.eeworm.com/read/101760/15819194
l printline.l
%{
(* 演示程序，演示ECHO的用法
对于从控制台输入的每一行，都重新打印一遍
使用: printline
生成工程文件: lex printline printline.dpr
*)
program PrintLine;
{$APPTYPE CONSOLE}
uses
SysUtils, LexLib;
%}
%
www.eeworm.com/read/101180/15842016
dpr regserver.dpr
program RegServer;
uses
Forms,
Windows,
SysUtils,
Registry;
{$R *.res}
var
sPath:String;
begin
Application.Initialize;
sPath:=ExtractFilePath(Application.ExeName);
www.eeworm.com/read/100665/15867773
~pas uhelp.~pas
unit Uhelp;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
Tfhelp = class(TForm)
Memo1: TMemo;
private
www.eeworm.com/read/100541/15872513
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{